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1.2 flBSTRflCT 



THE RKll/RKOS DYfWIIC TEST flIHS AT 

1. penONSTRflTlNG THE ELECTROHECHPNlCflL INTRECRITY 
OF TfC DRIVE. 

2. CfCCKiNG THE LirCRR POSITIONER CONTROL AND SPEED 



CONTROL 

3. VERIFYING THE INTREGITY OF THE REflQ/URITE LOGIC 
H. PROVIDING A TINER FOR THE SEEK FUNCTION 



THIS IS A TEST ONE LEVEL HIGHER THAN THE BASIC RKll 
LOGIC TESTS. 

2.n REQUIRENENTS 

2.1 EQUIPMENT 

A. POPU UITH CONSOLE TELETYPE. 

B. BK OF HENORY 

C. RKli OR RKVii CONTROLLER 

D. 1-8 RKD5 OR RK05F DRIVES (DRIVE TYPES HAY BE MIXED: 

2.2 ORELiniNARY PROGRAMS 

RKll LOGIC TEST I (MAINDEC-ll-DZRKJ) 
RKll LOGIC TEST II (NAINDEC-ll-DZRKK) 

2.3 EXECUTION TIME 

ERROR FREE FIRST PASS ON POPll/20 UITH CORE NENORY 
TAKES APPROXIMATELY 5 MINUTES (UITHOUT THE SEEK 
TIMER AND GRAPH, ADDITIONAL 3.5 MINUTES FOR THESE). 
LESS FOR FASTER MACHINES OR MEMORIES. 

3.0 STARTING ADDRESS 

200 FOR ANY NORMAL MODE OF OPERATION. ALL SUITCHESS 
DOUN 

210 FOR FUNCTION SELECTING PROGRAM (CONVERSATIONAL 
MODE). 

-4.2 PROGRAM CONTROL MODES & OPERATOR ACTION 

PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACTll 
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4.1 PAPER TOPE LOADING 

4.1.1 LOO) PROGRflfl INTO flEflOPY USING STANDARD PROCEDURE 
FOR flfiSOLUTE TAPES. 

4.1.2 MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED 
UITH DISKS AND ARE IN 'RUN*. 'URT ENABLE' THEM. 
CHECK THAT 'URT PROT' LIGHT ON THESE DRIVES IS OFF. 
PUT DRIVES THAT ARE NOT TO BE TESTED ON 'LOAD'. 

4.1.3 LOAD ADDRESS 200 

M.1.4 SET SUITCHES IF DESIRED CSEE SEC b.O) 

PRESS START. 

4.1.5 THE PROGRAM IDENTIFIES ITSELF 

RKll DYNAHIC TEST 
NAINDEC-ll-DZRKL-E 

THEN IT PROCEEDS TO FIND WHICH DRIVES ARE PRESENT 
AND PRINTS OUT THE DRIVES FOUND. IF AN RK-05F 
IS DETECTED, AN F IS APPENDED TO THE DRIVE NUMBER: 



DRIVES PRESENT 

0 

1 

AFTER TYPING OUT THE DRIVE NUMBER THAT IS GOING TO 
BE TESTED. EXECUTION OF THE TESTS START. 

AFTER ALL THE TESTS HAVE BEEN EXECUTED ON ONE DRIVE 
THEY ARE EXECUTED ON THE NEXT DRIVE. IF PRESENT. 
THIS IS REPEATED TILL ALL DRIVES ARE TESTED. 

AT THE END OF A PASS THE FOLLOWING IS TYPED OUT: 

END PASS X X=0,l,2 

CONTROL IS TRANSFERRED BACK TO THE BEGINNING OF THE 
PROGRAM AND RE-EXECUTION BEGINS. 



4.2 RKOP DUMP MODE 

4.2.1 THE PROGRAM IS LOADED BY THE RKDP MONITOR. 

4.2.2 SET SAs200. SELECT ANY SUITCHES YOU WANT AND PRESS 
START. 

■*.2.3 THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT: 
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'TO TES^ DRIVE "N* HALT PROCRftfl, REMOVE RKDP PftCK fiND REPLftCE IT 
UITH A UORK PQCK. CLEAR LOCATION 40. AND RESTART PROGRAM' 



4.3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE 
'N'. AFTER IDENTIFYING ITSELF, THE FOLLOUING MESSAGE 
APPEARS: 

•DRIVE 'N' NOT TESTED' 

DRIVE 'N' WILL NOT BE TESTED SINCE THE RKDP PACK IS ON 
THAT DRIVE. 

4.4 ACTll MODE 

THE PROGRAM IS LOADED BY THE ACTli MONITOR. AFTER 
IDENTIFYING ITSELF. ASCERTAINS THE NUMBER OF DRIVES 
PRESENT AND PROCEED^ TO TEST EACH OF THEM AS BEFORE. 

5.0 DRIVE SELECTION 

IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR 

TESTING, PUT THAT DRIVE ON 'RUN' , 'WRITE ENABLE' . 

PUT THE REST OF THE DRIVES ON 'LOAD*. 'WRITE LOCK'. 
THEN START AS USUAL. 

b.O SUITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN ll/34> 
THE PROGRAn WILL DETERniNE THAT THE HARDWARE SWITCH REGISTER IB 
NOT PRESENT AND HILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
'SOFTMRE' SUITCH REGISTER IS LOCATED AT LOCATION 17b (8). THE 
SETTINGS OF THE '50FTUARE' SUITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL G' WHENEVER THE PROGRAM ENTERS 
THE SCOPE ROUTINE OR BEGINS A NEW TEST. THE 

'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 

'SWR 2 NNNNNN NEW :' 

EACH TIME SWITCH SETTING ARE ENTERED. THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROi ARE NOT REQUIRED., 'RUBOUT' AND 
'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 

ON PROCESSORS UITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS AlL lb SWITCHES IN THE 
•JP' POSITION, ALL SUITCH REGISTER REFERENCES WILL BE TO THE 
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' SOFTWARE ' REGISTER AfC THE PROCEDURES DESCRIBED ABOVE flliST 
BE rXLOUEO. 

S«<15>=1 HflLT ON ERROR 

PRINTOUTS 

SU<12>=1 CYCLE ON ERROR TO THE PREVIOUS 

'SCOPE* STflTEfCNT 
5U<11>=1 DUMP ALL RKU REGISTERS ON ERROR 

5W<10>=1 RING BELL ON ERROR 

SW<0'3>=1 LOOP ON SPECIFIC ERROR 

SU<08>=1 LOOP ON TEST INDICfiTED BY USER .SEE 

SEC E> 8) 
SU<Ob>=l TYPE SEEK TIMER 

SH<35)=1 TYPE THE GRAPHS 

5U<34>=1 PRINT THE COMPLETE GRAPH 



SU<03>=i TERMINATE FUNCTION SELECTED BY USER 

SU<Q2)=1 DROP THE DRIVE AFTER MAXIMUM 

ALLOWABLE NUMBER OF ERRORS OCCUR 
SU<00>=i ASK FOR PATTERN TO BE tFITTEN OR 

WRITE CHECKED (FUNCTION SELECTION 

PROGRAM) 



b.l 5W<15> 



THE PROGRAM HALTS ON ENCOUNTERING AN ERROR. AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION. PRESSING "CONTINUE" RESTORES NORMAL 
OPERATION OF THE PROGRAM. 



£).2 5W<1H> 



THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON. THIS SWITCH IS 
USED NORMALLY ALONG WITH SW 15. 



&.3 5W<13> 



THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED WHEN LOOPING ON TEST (SW 14) OR LOOOPING ON 
ERROR (SW 9). 



b.4 SW<12/ 



THIS SWITCH ALLOWS THE PROGRAM TO CYCLE FROM THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT. 
NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 
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AT THE BEGINNING OF THE SUBTEST UILL BE DONE AGAIN 
fiND fiGfilN. SEE SEC. b.7 FOR ft DIFFERENT KIND OF 
SCOPE LOOP. 



SU<li> 

ENiSuNTERlNC fiN ERROR 



THJg^WjTjH.ftLL0WS_0Ut1PING OF ftLL RKU REGISTERS ON 



fe.fe SU(10> 



PI^GS h BELL ON ERROR. USEFUL UHEN ERROR TYPEOUT IS 
INHIBITED. 



b.7 SU<09> 



THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP. NOTE THAT UNLIKE SU12 THE INITIALIZATION OF 
PARAMETERS AT T« BEGINNING OF THE SUBTEST HAY NOT 
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL l«EN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU UANT TO SCOPE ON THE 
PARAMETER IN ERROR. (EXAMPLE: RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777. 
PATTERN Sbl IS GIVING ERROR. YOU MIGHT NOT WANT TO 
GO THROUGH THE SbO PATTERNS BEFORE HITTING ERROR ON 
THE 561 TH PATTERN. IN THIS CASE SU S WILL GIVE YOU 
A SCOPE LOOP ON THE SblTH PATTERN ONLY. ) 



b.S SW<OB> 



THIS SWITCH IS USED TO SELECT A PARTICULAR TEST FOR 
EXECUTION. WHEN THE PROGRAM IS STARTED (200] WITH 
THIS SWITCH SET, THE FOLLOWING MESSAGE APEARS: 

OCTAL TESTt' 

THE USER SHOULD REPLY WITH THE TEST NUMBER (OCTAL) 
HE WANTS TO SELECT, FOLLOWED BY CARRIAGE RETURN. 

THE SELECTED TEST IS EXECUTED AGAIN AMD AGAIN. TO 
GET OUT OF THIS LOOP. PUT SW 8 BACK TO 0. THIS WILL 
RESUME NORMAL OPERATION OF THE PROGRAM. NOTE THAT 
BEFORE TEST 4 CAN BE EXECUTED TEST 2 SHOULD HAVE 
BEEN DONE AND TES' b SHOULD HAVE BEEN DONE BEFORE 
TEST 7. 



b.9 SW(Ob' 
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THIS SWITCH U»CN SET MfiKES THE PROCIWH TYPE THE SEEK 

OCCURING. 

b.lO 5U(0S> 



THIS SWITCH fIflKES THE PROGRflM TYPE THE GRAPHS. IF 
RESET BEFORE THE GRflPH-PLOTTING ROUTINE IS ENTERED. 
THE GftflPHS WILL BE SKIPPED ENTIRELY. IT CAN BE RESET 
EVEN AFTER SOME OF THE POINTS HAVE BEEN PLOTTED, TO 
SKIP PLOTTING REST OF THE POINTS. 



b.ll SU<04> 



THIS SWITCH IS USED TO SELECT THE COMPLETE GRfiPH 
OUTPUT (SEEK TINES OF ALL CYLINDERS ARE PLOTTED; 
NORMALLY WHEN THIS SWITCH IS NOT SET. THE SMALL 
GRAPH (ONLY SELECTED CYLINDERS PL0TTE6) IS PRINTED 
OUT. 



&.12 SW<03> 

THIS SWITCH WHEN SET TERMINATES THE EXECUTION OF THE 
FUNCTION SELECTED BY THE USER (SA=210). A NEW 
FUNCTION MAY BE INITIATED NOW. IF YOU WANT TO KEEP 
ON LOOPING ON THE SAME FUNCTION, PUT SW 3 DOWN. SEE 
SEC. S.O. 



b.i3 SW'02> 

THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM 
THE SELECTION LIST AND TESTING. AFTER MAXIMUM 
ALLOUAGLE ERROR COUNT (TOTAL NUnftER OF ERRORS) ON 
THAT DRIVE IS EXCEEDED. THE NAXinUM ALLOWABLE ERROR 
COUNT IS 6. AFTER 6 ERRORS HAVE OCCURED THE DRIVE TS 
DROPPED An6 a message ( DRIVE I XXXXX DROPPED: IS 
PRINTED. 

&.14 SW<00> 

THIS SWITCH IS TO BE USED WITH THE FUNCTION 
SELECTION PROGRAM iSA=2lO). IF A WRITE OR A WRITE 
CHECK FUNCTION IS SELECTED WITH THIS SW SET. THE 
PROGRAM WILL ASK FOR THE PATTERN TO BE WRITTEN OR 
WRITE CHECKED (PATRN'). THE USER SHOULD TYPE IN THE 
(OCTAL) PATTERN^ THIS PATTERN WILL BE WRITTEN (OR 
WRITE CHECKED; tti THE DISK. FOR FURTHER INFORMATION 
REFER TO SEC. S.O. 




PROGRAM DESCRIPTION 

THE FIRST TEST IS AINED AT DETECTING IPPEPENOING 
ELECTRO- MECHANICAL FAILURES IN THE DRIVE ftND 
INNER/OUTER LIMIT SUITCHES. 

IN T>C NEXT TUO TESTS, THE DISK IS FORMATTED AND 
CHECKED FOR^CORRECT FORMATTING. j^^M ^JSK 

THE^^V^N^ftRIvl ^S^^eItK^ N§ fSBIlATTfNG li^DONE^UHEN 
THE ODD DRIVE IS TESTED. THE DISK IS CHECKED EACH 
TIME FOR PROPER FORMAT, HOWEVER. 

IN NEXT TWO TESTS THE SEEK LOGIC. POSITIONER, ETC 
ARE CHECKED OUT BY DOING IMPlIED SEEK, USING TWO 
DIFFERENT SEEKING PATTERNS. THE FIRST ONE IS A 
DECREASING SAW-TOOTH PATTERN 

(0-312-0-311-0-310....), THE SECOND ONE IS A 
CONVERGING-DIVERGING PATTERN 
(0-312-1-311-2-310....). ON GETTING AN ERROR. 
FURTHER ANALYSIS IS DOt€ TO FIND OUT MORE ABOUT ThC 
NATURE OF ERROR. MANY TIMES ADDITIONAL IhFORMATION 
IS GIVEN FOR THE CONVIENCE OF THE USER. RETRIES ARE 
DONE WHENEVER AN ERROR OCCURS. 

IN THE SUBSEQUENT TESTS EXTENSIVE WRITING IS DONE 
USING MORE THAN 2000 DIFFERENT PATTERNS. THE DATA 
IS READ, (SOFTWARE) COffARED, AND WRITE CHECKED. 

EVERYTIME AN ERROR OCCURS RETRIES ARE DONE, TO CHECK 
IF IT WAS A RECOVERABLE ERROR OR NOT. THE USER CAN 
CHANGE THE PATTERNS TO BE WRITTEN ON THE DISK. THE 
DATA TRANSFER BUFFERS CAN BE RE-LOCATED BY THE USER 
TO DIFFERENT PARTS OF MEMORY, REFER TO LOCATIONS 
•PBUFO'. 'PBUFr, 'PATl'. 'PTRNOl' IN THE LISTINGS 
FOR HORf details! SEE StC 7.1. 

THE SHUNT CURRENT CHANGE TEST WRITES, READS AND 
CHECKS FOR ERRORS ON CYLINDERS 127 AND 128. THIS 
REGION HAS CRITICAL "PACKING DENSITY" TO "WRITE 
CURRENT- RATIOS. 

THE SEEK TIMER PROVIDES SEEK TIMES AND GRAPHS AS 
EXPLAINED IN SEC 8.0 

A FUNCTION SELECTION SUB-PROGRAM IS PROVIDED FOR 
USER SELECTION OF FUNCTIONS. SEE SEC S.O 

EVERY TEST IN THE PROGRAM IS PRECEEDED BY AN 
EXPLANATION OF THAT TEST. THE USER IS ADVISED TO 
REFER TO THAT, IF MORE iNFOftMATION IS NEEDED. 

PERMISSIBLE USER PROGRAM MODIFICATIONS 
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THE LfSER CAN MflKE MINOR CHflNCES IN POINTERS. TABLES. 
ETC. TO TAKE CARE OF HIS SPECIAL NEEW. IT IS 
ADVISABLE TO HAKE CHANGES IF ANY, RIGHT AT THE 
BECINING. 

7.1.1 SEEK TirilNC CAN BE DONE BETWEEN ANY TWO CYLINDERS. 
BY NAKING CHANGES DESCRIBED IN THE CYLINDER ADDRESS 
TABLE AT LOCATIONS 'SOAD* AND 'SIAD* IN THE 
LISTINGS. 

7.1.2 IN CASE YOU HAVE A LINE PRINTER AND WANT YOUR OUTPUT 
ON THE LINE PRINTER. CHANGE LOCATION 'STPS' TO 
177514 AND LOCATION 'itPB* TO 17751b (LINE PRINTER 
VECTORS). 

7.1.3 INPUT/OUTPUT DATA BUFFERS (FROfI UHERE DATA TRANSFERS 
UILL BE DONE TO AND FROM THE DISK) CAN BE RELOCATED 
TO ANYWHERE IN THE 28K OF flEMORY (DO NOT OVERLAY THE 
PROGRAM). THIS CAN BE DONE BY CHANGING T^C CONTENTS 
OF LOCATIONS 'PBUFO' AND 'PBUFl' TO THE STARTING 
ADDRESSES OF THE TWO USER SELECTED BUFFERS. IT 
SHOULD BE NOTED THAT EACH OF THE TWO BUFFERS SHOULD 
BE 7b8 (DECIMAL) WORD LONG. 

7.1.4 FOUR DIFFERENT PATTERN GENERATOR ROUTINEf HAVE BEEN 
USED IN THIS PROGRAM: A. PTGENO B. PTGENi C. 
PTGEN2 D. PTGEN3. THEY HAVE BEEN DESCRIBED IN 
DETAIL AT CORRESPONDING LOCATIONS IN THE LISTING. 
THE ORDER IN WHICH THEY ARE CALLED IS DESCRIBED AT 
THE BEGINING OF TEST b. THIS CALLING ORDER CAN BE 
CHANGED BY MAKING CHANGES IN THE FOUR POINTERS 
fi.'PATO' B. 'PATi' C. 'PAT2' D. 'PATS'. THESE 4 
POINTERS CONTAIN THE STARTING ADDRESS OF EACH 
ROUTINE. 

7.1.5 AS A SPECIAL CASE OF THE ABOVE, YOU CAN WRITE THE 
SAME TWO (OR ONE) PATTERN/S ON THE ENTIRE DISK USING 
'PTGENO' ROUTINE. TO WRITE THE SANE ONE PATTERN: 
CHANGE LOCATION 'PATI' TO 'PTGENO' (STARTING ADDRESS 
OF PTGENO) 

CHANGE LOCATION 'PAT2' TO 'PTGENO' (STARTING ADDRESS 
OF PTGENO) 

CHANGE LOCATION 'PAT3' TO 'PTGENO' (STARTING ADDRESS 
OF PTGENO) 

FILL LOCATIONS 'PTRNOl' AND 'PTRN02' WITH THE 
PATTERN YOU WANT. 

TO WRITE 2 DIFFERENT PATTERNS (IN ALTERNATING 
SECTORS): 

CHANGE 'PATI', 'PAT2' AND 'PAT3' AS DESCRIBED ABOVE. 
FILL 'PATRNOl' AND 'PATRNQ2' WITH THE TWO PATTERNS 
YOU WANT. 

7.1.b IN TEST 10, IF YOU WANT TO WRITE AND CHECK CYLINDERS 
127 AND l28 WITH PATTERNS OTHER THAN THE 12 USED, 
CHANGE ANY OR ALL OF THE 12 POINTERS 'SPi' THROUGH 
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•SP12' TO CONTftlfl PflTTERMS YOU HftMT. 
8.0 SEEK TIMER & GMPHS 

USED AS A TlfC BASE. THUS THE ACCURACY OF THE TIMES 
RECORDED IS AS GOOD AS J\€ ACCURACY OF THE SECTOR 
COUTfTER (IMICH IN TURN DEPENDS ON THE ROTATION SPEED 
OF T« DISK). 

IN THE FIRST PART OF THIS TIMER, SO't CRITICAL SEEKS 
HAVE BEEN TIMED (CYLINDERS 0-1 ! 17S-l|l, 0-3. OMI 



0-32. 0-202, 0=100) EACH SEEK !s DONE 100 TIMES. 
TIMEi ARE RECORDED, THEN T»C TIMES ARE SORTED OUT 
AhO A PRINTOUT IS GIVEN SHOUING HOU MANY TIMES A 
PARTICULAR SEEK TIME UAS OBTAINED. EXAMPLE: SEEK 
BETICEN 0 AND LAST CYLINDER UAS DONE 100 TIMES. 99 
TIMES A SEEK TIME OF 95 MS UAS OBTAINED, ONCE IT 
GAVE 100 MS. THIS GIVES THE USER AN IDEA OF HOU 
CONSISTENT ARE THE SEEK TIMES. 

IF YOU UANT TO TIME SEEK BETUEEN ANY OTHER SET OF 
CYLINDERS, YOU CAN DO BY FOLLOUING THE INSTRUCTIONS 
AT LXATI6n 'SOAD' in LISTINGS. SEE SEC 7.1 

IN THE SECOND PART. A GRAPH OF THE 'CYLINDER SEEKED 
FROM 0' IS PL0TTE6 AGAINST 'SEEK TIME*. TUO GRAPHS 
ARE AVAILABLE, NORMALLY THE SMALL GRAPH IS PRINTED 
OUT. THE SMALL GRAPH PLOTS THE SEEK TIMES FOR 
SELECTED CYLINDERS (ABOUT 49) COVERING THE RANGE 
FROM CYLINDER 0 TO 202. IT GIVES THE USER A QUICK 
SEEK CHARACTERISTICS OF A DRIVE. 

THE OPTIONAL COMPLETE GRAPH (SU 4) GIVES A GRAPH 
SIMILAR TO THE ABOVE ONE, BUT PLOTS ALL THE 
CYLINDERS (203). 

THE GRAPH SHOUN ON LAST PAGE IS A SAMPLE OUTPUT. IT 
SHOULD BE REALIZED THAT DIFFERENT DRIVES MAY HAVE A 
SLIGHTLY DIFFERENT CHARACTERISTIC. 

9.0 FUNCTION SELECTION PROGRAM 

THIS PROGRAM GIVES THE USER fl CAPABILITY TO SELECT A 
FUNCTION AND EXECUTE IT, FROM THE CONSOLE TELETYPE. 

STARTING ADDRESS=210 

ON STARTING THE PROGRAM AT 210, THE FOLLOUING 
QUESTION APPEARS: 

FUNCTION' 
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THE REPLY SHOULD BE: 



ftLL COmftNDS SHOULD 
RETURN. DEPENDING 



UR 



BE 
ON 



FOR URITE 

[E CHECK 



Ri 
CR 

OR FOR 
SK FOR 
TERMINATED 




C»CCK 
FOR CONTROL RESET 
RIVE RESET 
EEK DR 

BY P CARRIAGE 



WHICH FUNCTION IS GIVEN THE 



FOLLOUING QUESTIONS APPEAR: 

RKBA^ TYPE IN THE BUS ADDRESS (OCTAL) 

FOLLOUED BY A CR. 

RKDA' TYPE IN THE DISK ADDRES (OCTAL) 

FOLLOUED BY CR. 

IF A NON-EXISTENT CYLINDER OR SECTOR IS SELECTED, 
THE QUESTION IS REPEATED AGAIN. 

•WORDS' TYPE IN THE NUMBER OF WORDS YOU WANT 

TO TRANSFER. IT SHOULD BE IN OCTAL. THUS IF YOU 
WANT TO READ A SECTOR TYPE IN 400 FOLUOWED BY CR. 
ANY NUraER OF WORDS CAN BE TRANSFERRED DEPENDING ON 
THE BUFFER SIZE AVAILABLE. 

FOR A WRITE FUNCTION: IF SWO IS SET TO 1 TfC PROGRAM 
WILL ASK FOR THE DATA PATTERN TO BE WRITTEN: 

PATRN' THE USER SHOULD TYPE IN THE DATA 

PATTERN (OCTAL) TO BE WRITTEN, FOLLOUED BY <CR>. THE 
PATTERN WILL BE WRITTEN ON THE DISK. NOTE THE NUMBER 
OF WORDS TO BE WRITTEN fltC THE DISK ADDRESS SHOULD 
BE SPECIFIED. 

FOR A WRITE CHECK FUNCTION: IF SW 0 IS SET TO 1. THE 
USER IS ASKED FOR THE PATTERN TO BE WRITE CHECKED: 
PATRN' THE USER SHOULD TYPE IN THE (OCTAL) PATTERN. 

FOR A SEEK FUNCTION: CYLl' CYL2' IN REPLY TO THESE. 
TYPE IN THE CYLINDER NUMBERS (OCTAL) BETICEN WHICH 
THE SEEK IS TO BE DONE. IF A NON EXISTENT CYLINDER 
IS TYPED IN THE QUESTION IS REPEATED AGAIN. 



THE FUNCTION IS EXECUTED AGAIN AND AGAIN. TO GET 
OUT OF THIS LOOP SW 3 SHOULD BE SET. AT THIS POINT 
THE QUESTION ( FUNCTION' ) IS ASKED AGAIN. 

IF UPON EXECUTION OF A FUNCTION AN ERROR OCCURS IT 
IS REPORTED. ALL SWITCH OPTIONS WHICH APPLY TO ANY 
OTHER ERROR, ALSO APPLY TO THIS ERROR. 
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IF on irf>UTTlNG A NUMBER OR COimC A niSTAKE IS 
nflOC. T« lr#»UT STRING CAM BE DELETED BY HITTING 

'Rub6ut' key, the fcu string can be typed in again. 



10.0 error irfOfiflATIori 

ItCfCVER AN ERP'-*^ fCSSAGE IS PRINTED OUT, ALL 
REGISTERS AfC OTHER DATA PERTAININNG TO T« ERROR 
ARE ALSO GIVEN. RKDS. RKER...RKBA INDICATE THE 
CONTENTS OF THE CORRES^ING REGISTERS AT T« TINE 
OF ERROR. 

EVERY ERROR MESSftGE CONTAINS A PC. THIS PC 
INDICATES THE POSITION IN PROGRAM i*€R£ THE ERROR 
CALL IS LOCATED. T}^ ERROR fCSSAGi:, BECAUSE OF 
PRACTICAL CONSIOERAUONS IS NAD': SHORT A^€ 
fCAhlNGFUL. T»C USER IS ADVISED TO UJOK UP T« PC 
IN THE PROGRAH LISTING. UHERE f€ WILL FIND NORE 
irrORriATIOM about T»C EmR. IN rWfY INSTANCES. A 
SINGLE FAULT UILL GIVE RISE TO NORE THAh OTC E^ 
REPORT. A LITTLE OaiBERATIOM AND CAREFUL 
EXAHINATIOM OF T»C DATA GIVEN UILL BE CERTAIfCY VERY 
fCLPTUL. A BRIEF EXPLANATTOM OF MHAT IS BEING 
CHECKED IN T»€ SUBTEST IS GIVEN AT T>€ BEGINNING OF 
EVERY SUBTEST. Aa ThC NUTCERS GIVEN WITH ERROR 
rCSSAGES ARE IN OCTAL. 

AT Tires M€N AN ERROR OCCURS BESIDES THE ERROR 
PRINTOUT NORE PRINTOUTS XCUR. THEY ARE GIVEN TO 
Hap T« USER UHDERSTAfC THE PROBLEM. 



11.0 UNEXPECTED TIMEOUTS AfC RKll INTERRUPTS 

1*CN AN UfCXPECTED TI«OUT OCCURS, T« PC AT WHICH 
IHE OUT OCCURRED IS TYPED OUT AfC THE PROGRAM 
HALTS. IF IT IS INTACT, IT CAN BE RESTARTED BY 
PRESSING CONTINUE. 

IF AN urCXPECTED RKll INTERRUPT OCCURS THE PROGRAM 
TYPES OUT T« PC AT UHICH T« INTERRUPT CANE IN AND 
T«N HAL^S. PRESSING CONTINUE MOULD RESTART THE 
PROGRAM FROM BEGINNING. 



12.0 COMMONLY USED SUBROUTINES 

A BRIEF EXPLAINATION OF EVERY SUBROUTINE IS GIVEN IN 
THE LISTINGS (JUST BEFORE THE CODE FOR THAT 
SUBROUTIfC). ALL SUB-ROUTINES ARE LISTED IN THE 
'TABLE OF COMTENTS' FOUND AT THE BEGINNING OF 
LISTINGS. T«SE ARE TUO HAYS IN UHICH ROUTINES ARE 
CALLED, 1. JSR PC. ROUTINE 2. THROUGH AN ENCODED 
TRAP iteTRUCTION. TH^ LOWER BYTE OF T^C 'TRAP' 
INSTRUCTION IS USED TO INDEX THROUGH THE TRAP TflBLE 



COS 

•C-11-DZRKl-E. RKli-«K05 DYNflfllC TEST fWCYU 30(10Ht») 14-JUL-77 08:03 PftCE 15 
DZRKLE.Pll 2t)-flPR-77 12:27 

(STRPflO) FOR TfC STARTING ROORESS OF THE DESIRED 
ROUTIME. 

13. Q SRfflE GRRPH RND SEEK TIHER OUTPUTS 

OF PEEKS' IfCICRTES THE ftWR OF TIfCS ft PflfiTICULftR 
•SEEK TIHE* URS OeTfllfCO. NOTE THRT TIfCS ARE RECORDED FOR 
BOTH FORURRO RNO REVERSE SEEKS. BETkCEN R SET OF CYLINDERS. 

SEEK TINE SCRLE FRCTORsQ.Ol NIL I SECS 

• OF SEEK I OF SEEK 
SEEKS TINE SEEKS TINE 

CYLS:Q-202 
FRURD REVRSE 

100 9075 100 S075 

CYLS:C-1 

FRURO REVRSE 

100 82S 100 1155 

CYL5:17S-181 

FRURO REVRSE 

100 1155 100 1155 

CYLS:0-3 
FRURO REVRSE 

100 1485 100 1485 

CYLS:0-16 
FRURD REVRSE 

100 3135 100 3135 

CYLS:0-32 
FRURD REVRSE 

100 3795 100 37«95 

CYLS:0-1X 
FRURO REVRSE 

IX 5775 IX 5775 



DD2 

•C-M-DZIfcL-E. HKU-WOS OYNflfllC TEST HftCYU 30U0%) m-JUL-77 08:03 PACE lb 
ZZf^^l.Pll Zb'Ofm-T? i2:27 

X AXIS - SEEK TIME - niLl SECS »»S<mE OUTPUTtt 

Y ftXIS - CYLlfCER SEEKEO FROfl 0 

0 JO f9...^ }9 J? |o J9.„f?.-.J°._.J°?..}i°-.J!9_.} 

0- X 

1- X 

2- X 

3- X 

X 

b- X 

B- X 
:o- X 

12- X 

m- X 

lb- X 

18- X 

20- X 

25- X 

30- X 

35- X 

40- X 

45- X 

50- X 

55- X 

bO- X 

b5- X 

70- X 

75- X 

BO- X 

65- X 

90- X 

«K- X 
100- X 
105- X 

no- X 

115- X 
120- X 
125- • X 

130- X 
135- X 
140- X 
145- X 
150- X 
155- X 
IbO- X 
IbS- X 
170- X 
175- X 
180- X 
IBS- X 
190- X 
195- X 
230- X 
202- X 



EOS 

•C-H-DZRKl-E. RKU-RKOS DYNflfllC TEST fIftCYU 30(10%) 14-JX-77 08:03 PW£ 17 
ZZRk^£.°:: 2{5-flPR-77 12:27 



s^tm'"'i'-i^^^i^^'' '''' 



F02 

flflCYU 30 (10Mb) lH-JUL-77 08:03 P«CE IB 



825 
S2fe 
B27 
828 
82S 
B3D 
831 
632 
833 
834 
835 
83b 
837 
838 
83<3 
B4G 
841 
8H2 
8M3 

844 

845 
84b 
847 
848 
849 
BSC 
851 
852 
853 
854 
855 
95b 
857 
858 
859 
8bC 

ebi 

3b2 
8b3 
9fc4 
9b5 
Sbb 
2c" 



.TITLE HD-ll-DZRKL-E, RKU-RKOS OYNftWC TEST 
;#COPYRIGHT (C) 1974 l«377 
»DICITftL EOUIPfCMT CORP, 
|»MflYNflRD, MPSS. 01754 

i*PR0GR«1 BY JIfl KflPflOIfi 

'■ImS PROGRAH MS flSSEHBLEO USING THE POP-ll llfllNDEC SYSMfiC 

;»PflCKflGE {n«IfCEC-ll-DZ0fiC-C3), JflN 19, 1977. 

:* 

;*3mmy 1975 

■IrEVISED MftRCH 197b BY TOfI 5AUYER 
llSviaO BY CHUCK HESS. ftUGUST. 197b 



SBTTL 

* 
» 
ft 
* 
ft 
ft 
t 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 



:♦ 



OPERATIONAL SWITCH SETTINGS 



SWITCH 

"Is 

14 
13 
12 
10 

9 

8 

b 

5 

4 



USE 



11 



HALT ON ERROR 

LOOP ON TEST _ 

IfWiBIT ERROR TYPE0UT5 

CYCLE ON ERROR TO PREVIOUS 'SCOPE' 

BELL ON ERROR 

LOOP onJrror 

SELECT TEST TYPED IN BY USER 
EXECUTE THE SEEK TIMER (TEST 11) 
TYPE THE SEEK TIKR GRAPHS (TEST 11, 
TyR tS COMPLETE GRAPH (AU SEEK TIHES 
NOTE OTHEWia YOU GET SMALL GRAPH 
terminate RfCTION SaECTED BY USER^ ^ 
(FOR FlfCTION SELECTION PROGRAM SA=2iC 
DROP THE DRIVE AFTER MAXIMUM ALLOWABLE 
NUMBER OF ERRORS HAVE OCCUREO „ , 
SsKFOR PATTERN TO BE BITTEN lOR WHrE 
CHECkS); N FUNCTiS SELECTION PROGPAfi 
DUMP OUT ALL RKll REGISTERS ON ERROP 



YOU ARE ADVISED TO READ THE DOCJMEM^ FOR THIS oRCGPm^. 
FUNCTION SELECTION PROGRAf* sTAR^S «T E,2. 



OSXLE.PU 2b-fiW-77 12:27 



YNflfllC TEST 



8be 

87C 
BTl 
872 
873 
87M 
875 
976 
877 
878 
87«3 
88C 
88: 
882 
BS3 

aes 

885 
B8& 
987 
888 
88*3 
8% 
9S1 
892 
993 
99M 
995 
8% 
897 
896 
999 
900 
9C1 
902 
9C3 
^GH 
905 
906 
907 
908 
909 
910 
911 
912 
912 
9H 
915 
916 
917 
918 
919 
92: 
921 
922 



OCilOO 



OOOCli 
000012 
O00C15 
000200 
177776 

17777H 
177772 
177570 
177570 



000000 
000001 
000002 
000003 
000004 
X0005 
000006 
X0007 
000006 
000007 



DOQOOO 
OOOOMO 
000 IOC 
000140 
000200 
000240 
000300 
000340 



100000 
040000 
Q2000C 
010000 
004000 
002000 
001000 
000400 
000200 
OOOIX 
000040 
000020 
OOCOlO 
000004 



GQ2 

fIflCYll 30 (1046 J 14-JUL-77 08:03 PAGE 19 
BASIC DEFINITIONS 

•SBTTL BASIC DEFINITIONS 

:«INlTIflL ftOORESS OF THE STACK POINTER »•* 1100 *** 
§TfiCK= 1100 

.EOUIV EflT, ERROR ;; BASIC DEFINITION OF ERROR CftL. 

.EOUIV lOT SCOPE : -.BASIC DEFINITION OF SCOPE CPt.. 



:»niSCELLANEOUS 
(iU 11 



LF= 
CR= 
CRLF= 
PS= 



12 
15 
200 
177776 



DEFINITIONS 

;;CODE FOR 
;;C00E FOR 
;C0DE FOR 
; CODE FOR 



HORIZONTAL TAB 
LINE FEED 
CARRIAGE RETURN 
CARRIAGE RETURN-LINE 



.EOUIV PS.PSW 
STKLNTr 17>774 
PIRO= 177772 
DSUR= 177570 
DDISP= 177570 



•PROCESSOR STATUS UORD 



;CI^TER 



FEEL 



nSoGww iNTE«uPf Request regis^ep 

HAROUARE SUITCH REGISTER 
llHfWOUARE DISPLAY REGISTER 



•GENERAL PURPOSE REGISTER DEFINITIONS 



fto= 

Rl= 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC= 



•/.I 
•/.2 
•/.3 

^^5 



•/.7 



GENERAL REGISTER 
GENERAL REGISTER 



mm 



RAL 

GENERAL REGISTER 
GENERAL 




STACK POINTER 
PROGRAH COUNTER 



•PRIORITY LEVEL DEFINITIONS 



PR1= 
PR2= 
PR3= 
PR4= 
PRS= 
PR6= 
PR7= 



0 
40 
100 
140 
200 
240 
300 
340 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL H 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



:»-SWITCH REGISTER" SWITCH DEFINITIONS 

§Ul5s 100000 

SU14S HOOOO 

51413= 20000 

SU12S 10000 

sua- 4000 

SU10= 2000 

SUOS: 1000 

SU08= 400 

SU07= 200 

5U06= 100 

SUOSr 40 

SU04= 20 

5U03= 10 

SU02= 4 



934 

m 

937 
938 
939 
9HC 

9h: 

9M2 
943 

944 
945 
94fc 
947 
948 
9M9 
95C 
951 
955 
953 
954 
955 
95b 
957 
958 
959 
%C 
961 
9ba 
963 
964 

9II 
967 
966 



i: TEST 



OCC002 

ococc: 



IDOOCO 
040000 

02000c 

010000 
00400G 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
OOgOlJj 

000020 
000024 
000030 
000034 
000060 
000064 
00C240 



HQ, 



N5 



IH JUL- 



08-03 PfiGE 20 



SU01 = 
SUOOr 
EQUIV 

lUIV 
V 
V 

EQUIV 
EQUIV 

EQUIV 
EQUIV 

6lT15= 
BIT14= 
BIT13= 
BITi2= 
BITilr 
BIT10= 
BIT09= 
BIT08= 
BIT07= 
BIT06= 
BIT05= 
BITOMr 
BIT03= 
BIT02= 
BITD1= 
BITOO= 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



2 
1 



SU09,5U9 




SU05,SU5 
SM04,SW4 



SUOl.SUl 
SUQO.SUC 

BIT DEFINITIONS 
100000 
40000 
20000 
lOCOO 
4000 
2000 
1000 
400 
200 
100 
40 
2C 
10 
4 
2 
i 

BIT09,BIT9 
6IT0B BITB 
BIT07,BIT7 
BITOb,BITb 
BITOS.BITS 
BIT0M,BIT4 
BIT03.BIT3 
BIT02,BIT2 
BITOl.BITl 
BITOO,BITO 



'BITOC ■'O EITiS 



:*BflSIC "CPU" 
tRRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRTVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PURVECs 24 
EflTVECs 30 
TR«PVEC=34 
TKVECs 60 
TPVEC= 64 
PIR0VEC=240 



TRftP VECTOR ADDRESSES 

iTIflE OUT AND OTHER ERRORS 
;RESERVED AND ILLEGAL INSTRUCTIONS 
, 'T- BIT 
TRACE TRAP 

•BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) ##SCOPE*» 
iPOUCR FAIL 

EMULATOR TRAP (EflTj ##ERROR»» 
"TRAP" TRAP 
;TTY KEYBOARD VECTOR 
;TTY PRINTER VECTOR 
iPROGRAfI INTERRUPT REQUEST VECTOR 



.5BTTL TRAP CATCHER 



98: 

^ 

98S 
986 

987 

988 
989 
990 
Hi 
995 
993 
99»4 
995 
9% 
37 



999 

1000 

i; 



13S3 
ICO** 



X017M 
OOCITB 



000210 
00C21M 



OCOOOO 



:i74 

jCC 
OOOjOC 



000200 000137 0024&2 



00004& 
000052 



000210 

105237 00121b 
000137 002Hb2 



000220 
00004& 
015330 



000220 



102 

|j)|^^ij^|g^g4b) l»*-JUL-77 08:03 PACE 21 
.=0 

*flLL UNUSED LOCflTIONS FROM 4 - 77b CONTAIN A ••.♦2.HALT- 
•SEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
tLOCATION 0 CONTAINS 0 ^0 CATCH INPROPERLY LOADED VECTORS 
.=174 

DISPREG: .UORD 0 ;;SOFTUAR£ DISPLAY REGISTER 

SUREG: .WORD 0 ;; SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS (E5) 

JNP atSTART ;;JJf1P TO STARTING ADDRESS OF PROGRAM 

.=210 

INCB FFUNC ;SET FLAG INDICATING SELECTION OF 

JMP atSTART ; FUNCTION PROGRAM. 

.SBTTL ACTll HOOKS 

.=4b 

JENDAD ;:1)SET L0C.4b TO ADDRESS OF JE'CAD .iE: 



0 ;;2)SET L0C.52 TO ZERO 

.rSSVPC RESTORE PC 



1005 
13% 
10C7 

i8ii 

1013 

mt 

lOlb 
1017 
1018 
1019 
1020 
1021 

1025 

{® 

1026 
102S 
1030 
1031 
1032 
1033 
i03M 
1035 
1036 
1037 

1038 
103<3 
1040 
1041 
1042 
.043 
1044 
1045 

:04b 

IDS 7 
1048 
1049 

1050 
1051 

!8H 

1054 
1055 
105b 
1057 

::5S 
.:59 



JQ2 



001100 

ooiiao 

88ff8§ 

001104 

001112 
001114 
001115 

X1120 
001122 
M1124 

001132 
001134 
001135 
00113b 
001140 
001142 
001144 
00114b 
001150 
001152 
001154 
001155 
00115b 
001157 
OOllbO 

0011b2 
001 lb4 
OOllbb 
001170 
001172 
001174 
00117b 
001200 

00120b 
001212 
301213 
001214 



001100 
000000 



000000 



000000 
000 
001 
]00 



000000 
000000 



000000 
000 
000 
000000 
177570 
177570 
1775b0 
1775b2 
177564 
1775bb 
000 
002 
012 
000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



177607 000377 

077 

015 
000012 



.SBTTL COnnON TAGS 



SCriTftG: 

IPftSS: 

ITSTffI: 

lERFLG: 

SICNT: 

Ilperr 

SERTTL 
SITEMB 
SERNflX 
JERRPC 
SOOAOR 
IBDPDR 
SGDDAT 
SBODflT 



SAUTOB: 
SINTPG: 

5UR: 
DISPLAY 
|TKS 
ITKB 
$TPS 
$TPB 
SNULL: 
SPILLS 
SFILLC 
JTPFLG 
SREGAO 



.sllOO 
.UORO 

■M 

.UORO 



JCRLF 
SLF: 



5R£ 
.UORO 
.BYTE 
.BYTE 
.WORD 
.UORO 
.UORO 
.UORO 
.UORO 
.UORD 
.UORO 

!U0RD 
.UORD 



SREGO 
SREGl 
SREG2 
SREG3 
SREG4 
SREG5 
SREGb 
JREG7 

SBELL 
SOUES 



.UORO 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
UORD 



0 

8 

0 



0 
0 

1 



0 
0 
0 
0 
0 



0 

DSUR 

.UORD DC ISP 
1775b0 
177Sb2 
I775b4 
1775bb 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.UORD 



0 
2 
12 

0 
D 

0 
0 

0 
0 
0 
0 
0 
0 
0 



.flSCIZ <207)<377.<377 

.ASCII /V 

.ASCII <15> 

ASCI2 <12> 



START OF 
CONTAire 

mi\^ 

CONTAINS 
CONTAIfg 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
RESERVED- 



COWflON TAGS 
PASS COUNT 

SUBTEST ITERATION COUNT 

IE8pI k??URN^^ERRDfiS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 

MLAST ERROR iNSTRUC'Id 
55 OF '^GOOD' DATA 
ADDRESS OF 'BAD' DATA 
'GOOD' DATA 
'BAD' DATA 
--NOT TO BE USED 



58BliM? 

ADDRESS OF SUITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBO STATUS 
TTY KBO BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ftOORESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS i OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE 'EED" 
-TERHINflL AVAILABLE" FLAG (BIT<07>=0=YES. 
CONTAINS THE ADDRESS FRON 
UHICH (SREGO) UAS OBTAINEC 
CONTAINS ((}REG«))+0) 
CONTAINS ((SREGAD)>2) 
CONTAINS (($REGAD)*4) 
CONMNS jjgl^jjb., 

((SREGA0)^12^ 
(($REGA0)+14) 
((SREGAD)nb) 



; **************************** 



CONTAIN 
CONTAINS 
CONTAINS 
CONTAINS 

ESCAPE ON 
CODE FOR BELL 
QUESTION HARK 
CARRIAGE RETURN 
..LINE FEED 
»#*»##«»«»»*»»##♦»♦♦♦»»*♦♦♦****♦♦♦♦ 



^E?^^OD??SS 



IC-n-DZRKL-E. «?Kil-RK05 DYNAHIC TEST 
DZRKLE.Pll 2fc-aPR-77 12: c7 



fIftCYll 30(lCHt») 
COWOfi TAGS 



KQ2 

14-JUL-77 08:03 



PAGE 23 



:IN CASE YQU UANT THE OUTPUT TO COfC OUT ON LlfC PRINTER. IF YOU HAVE 
lONE), MAKE THE FCLLOUING CHANGES ABOVC: 



; CHANGE CONTENTS OF 'ITPS' TO 177S14 
-.CHANGE CONTENTS OF 'STPB' TO I7751t> 

;TAGS AND GENERAL DATA AREA 



(LPT VECTOR) 
( " ") 



00121b 


OOODOC 


FFUNC 




.UORD 


0 


001220 


UOOOOC 


XXOPflO: 


.UORO 


0 


001222 


000 


LUP5W: 


.BYTE 


0 


001223 


000 


DRVDON: 


.BYTE 


0 


00122H 


000 


DRIVS 




• BYTE 


0 




001226 






• EVEN 




UUiCCD 


nnnnnn 


DRVPTR: 


n 




001230 


000000 


DRIVAD: 


0 




001232 


oooooc 


DRIVO 




n An Ann 

000000 




001236 


040000 






040000 




001240 


060000 


DRIV3 




060000 




001242 


100000 


DRIV4 




100000 






12DQQQ 


DRIVS 




120000 




00124fe 


140000 


DRIV6 




140000 




0012S0 


160000 


DRIV7 




160000 




001252 


000000 


RETRYl: 


0 




001254 


000000 


RETRY2: 


0 




001256 


000000 


RETRY3: 


0 




0012&0 


000000 


INADR: 


0 




0012&2 


000000 


OUTADR: 


0 




001264 


000000 


TIMER: 


0 




001266 


0OC015 


BUFR: 




.BLKU 


13. 


00 1320 


000C15 


BUFRl 




.BLKU 


13. 


301352 


000015 


BUFR2 




.BLKU 


13. 



FLAG SET, TO INDICATE ENTRY INTO FUNCTION PROGPflf 
IF PROGRAM LOADED BY XXDP, THE 
LOUER BYTE HAS THE DRIVE ^UMBER 
AfC THE UPPER BYTE CONTAINS THE RK05 'XXDP' CODE 



BY USER 'SU Bt 



CONTAINS NUMBER OF DRIVES THAT HAVE 

BEEN ALREADY CHECKED 

CONTAINS TOTAL t OF DRIVES PRESEN'' 



CONTAINS POINTER TO 



WHICH CHECKING SHOUL 
AVAILABLE 



INDICATOR STARTING 
0 BE DONE FOR NEX* 



SSlNC^TestE 



InG SHOUlO DONE POR 
DRIVE 

ADDRESS OF THE DRIVE 



}g6 



THESE ARE FLAGS TO INDICATE 
THAT A PARTICULAR DRIVE IS 
PRESENT. BIO IS SET TO 
INDICATE THAT. BITS 13, 14. 
CONTAIN THE LOGICAL DRIVE 
ADDRESS 



; GENERAL REGISTERS 



: CONTAINS INNER ADDRESS 
; CONTAINS OUTER ADDRESS 



15 



; GENERAL BUFFERS 



.17 



IC TEST 



COnnOn I Hub 



L02 

lM-JUL-77 08:03 



2C 



2M 

II 

27 
2S 



35 
3b 

37 
38 
3S 
40 
Hi 
42 
43 
44 
45 
% 
47 
48 
49 



BOTH THE BUFFERS SHOULD BE 7b8 (DECIMPL) WORDS LONG. 



001404 


026446 


PBUr U: 


IUdUt U 




ooi4ab 


031446 


PBUF 1 : 


lOBUr 1 




D014JC 
fnmi? 


000000 
nnnnnn 


BUFLGO: 
BUFLGl: 


.UORO 
.WORD 


0 
0 


001414 


01010b 


OATH. 


riiibnu 




00141b 


010170 


rHT 1: 






001420 


010272 


DATS M 


DTPCN3 

r 1 tjt,nc 




001422 


010334 


PftT3: 


PTGENj 




001424 


000000 


PKSrR 1 : 


. MUKU 


n 
U 


Q0142b 


000000 


NXTPfiT: 


.WORD 


0 


001430 


000000 


PGSUBR: 


.WORD 


0 


001432 


000000 


D5KA0R: 


.WORD 


0 


001434 


000000 


BUSADR: 


.UORD 


0 


00143b 


000000 


URDCNT: 


.WORD 


0 


001440 


000000 


UDSKPD: 


.UORD 


0 


001442 


000000 


UBUSflO: 


.UORD 


0 


001444 


000000 


UURDCN: 


.WORD 


0 


001446 


000000 


BUFNO: 


.UORD 


0 


001450 


000000 


flORES: 


.UORD 


0 



POINTER TO THE STORTING ftODRESS Of "HE 
BUFFER USED TO REfiO INTO FROfl DIBK. 

OF BUFFER 
!ATED. (URITING 




FLAG FOR 'lOBUFO' 
FLAG FOR 'lOBUFi' 

;ft0RES OF 'PfiTRN GENERATOR 0* 
ROUTINE , „ , 

jflORES OF 'PflTRN GENERATOR 1' 

jfiORES OF 'PflTRH GENRATOR 2* 

;ADRES OF 'PATRN GENRATOR 3" 

; CONTAINS THE POINTER TO THE 
ADRES OF 1 OF THE 3 'PATRN 
GENRATOR' ROUTINES 
SAtlE AS ABOVE 



CONTAINS DISK ADRES CDA) 
CONTAINS BUS AORES (BA) 
CONTAINS UORD COUNT 
CONTAINS DISK ADRES 
CONTAINS BUS AORES 
CONTAINS WORD COUNT 
CONTAINS STARTING ADRES 
OF A BUFFER 

IF^FO^ANf REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM 
THESE (BELOW); THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD 
BE MODIFIED S6 THAT THE CORRECT REGISTER ADDRESS IS USED. 



001452 
00145H 
00145b 
OOlHbO 
001%2 



177400 
177402 
177404 
17740b 
177410 



RKOS 
RKER 
RKCS 
RKWC 
RKBA 



177400 
177402 
177404 
17740b 
177410 



YNflrilC TEST 



1173 
iiTH 

ii^l 

1177 
1178 
1179 
1180 
1181 
1182 
1183 
118H 
1136 
118b 
1187 
1188 
118<3 
1190 
1191 
1192 
1193 
119M 
1195 
11% 
1197 
1196 
1199 
1200 
1201 
1202 
1203 
120S 
1205 
120b 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
121b 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
122M 
1225 
122b 
1227 
1228 



001%M 177M12 
00l%b 177Mlb 

001M70 000200 



001472 000220 



00147M 
00147b 
001500 
001502 

00150H 
00150b 
001510 
001512 
001514 
00151b 
001520 
001522 



001524 
00152b 
001530 
001532 
00153H 
00153b 
001540 



0015S2 
X154H 
0015% 
001550 
001552 
001554 



000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
013140 
000000 
000000 
000000 
000000 



014500 
000040 
013240 
000140 
001000 
002000 



flPCYU 30(104bJ 
COflWOM TPGS 



RKDP: 
RKOB: 



177412 
17741b 



RKPRI: 200 



RKVEC: 220 



INDXl: 


0 


irOX2: 


0 


INDX3: 


0 


INDX4: 


0 


ERCNTl: 


0 


ERCNT2: 


0 


ERCNT3: 


0 


ERCMT4: 


0 


ERCNT5: 


0 


ERCNTb: 


0 


ERCNT7: 


0 


ERCNTB: 


0 



MQ2 

14-JUL-77 08:03 PPCE 25 



CONTAINS THE CPU LEVEL (4) ftT WHICH 
RKll NORMflLLY INTERRUPTS. THIS WORD 

IS CHflhGED TO b, THE CPU LEVEL WOULD 

IDENTICfiL TO THE PRIORITY BITS IN PSUi 
CONTfilNS THE NORNflL VECTOR flOORESS 
TO UHICH THE RKll INTERRUPTS. IF THE 
VECTOR ftODRESS H«S BEEN CHANGED. MODIFY 
THIS UORO. 



; GENERAL INDEX REGISTERS 



; GENERAL REGISTERS 
•.GENERAL REGISTERS 
GENERAL REGISTERS 



*THE FOLLOWING TABLE CONTAINS THE CYLINDERS BETWEEN WHICH THt SEEKS WILL BE 
ITIHED. THEY HAVE BEEN SELECTED TO GIVE SOME TYPICAL SEEKS TINES FOR THE 
»3 SEEK SPEEDS. IF FOR ANY REASON YOU WANT TO TINE SEEKS BETWEEN ANY 
fOTHER SET OF CYLINDERS, HAKE CHANGES IN THE CORRESPONDING SEEK CYLINDER 
YAOORESSES. 



l»0UTER CYLINDER ADDRESS 
§OAD: 0 
0 

13140 

0 

0 

G 

0 

:«INNER ADDRESS, 
^lAD: 1M500 
40 

13240 
140 
1000 
2000 



FRON WHERE SEEK WILL BE DONE 
CYLINDER 0 
" 0 

- 179 

- 0 
" 0 

- 0 
" 0 



TO WHICH SEEK WILL BE DONE 
iCYLINDDER 202, LAST 



181 
3 
lb 
32 



fC-U-OZRKL-E, RK11-RK05 DYNPfllC TEST 
DZRKLE.PU 2fe-flPR-77 12:27 



N02 

nkan 30(10%) 14-JUL-77 08:03 2b 
COmON TftGS 



122S 
1230 
1231 

im 

123M 

1235 

1236 

1237 

1238 

123S 

12M0 

12M1 

12M2 

12M3 

124'i 

1245 

12% 

1247 

1246 

124S 

1250 

1251 

1252 

1253 

1254 

1255 

125£> 

1257 

1258 

125? 

12ba 

I2bl 

12b2 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1263 

1284 



00155b 006200 



6200 



100 



001560 
001562 
001564 
001566 
001570 

001572 
001574 
M157b 
001600 



001602 

001610 

001616 
001624 
001632 

001640 
0016% 
001654 

001657 
001664 
001672 
001700 
001706 
001714 

00171b 
001724 
001732 

001733 
001740 

001742 
001750 
001756 
001764 

001771 
001776 
002004 
002012 
002020 
002026 



004262 
00%26 
005124 
005614 
00662P 
007360 
010440 
012176 
012740 



005015 

005015 

005015 
021440 
052122 

005015 
040440 
042105 

015 
020104 
047440 
0%S17 
020102 
000105 

054105 
044040 
000 

040 
000040 

005015 
020114 
044504 
051440 

123 
020040 
050040 
020040 
050040 

000 



: FOLLOWING POINTERS ORE USED TO TRANSFER CONROL TO THE 
TEST SELECTED 8Y USING SU 8, IF ANY MORE TESTS ftRE 
fiDOeO TO THIS PROGRAH flOOITIONflL POINTERS SHOULD BE INSERTED. 



Pu 

PT2 
PT3 
PT4 
PT5 
PT6 
PT7 
PTIO: 
PTU: 



TSTH2 
TST2+2 
TST3*2 
T5T442 
TST5+2 
TST6+2 
TST7+2 
TSTlO+2 
TSTll+2 



044523 


000116 


: MESSAGES & ASCII STRINGS 
fiSGl: .ASCI2 <15><12>/SIN/ 


045523 


000105 


nSG2: 


.ASCIZ 


<15><12>/SKE/ 


042524 
nunuun 

042105 


052123 
irtr sue 
000072 


MSGS: 


.A5CI2 


<15><12>/TEST • ABORTED:/ 


051120 
047502 
000 


043517 
052122 








051012 
042110 
02G113 
041440 
041101 


040505 
051522 
051106 
046131 
053117 


NSG5: 


.ASCIZ 


< 15X12) /READ MORS OK FROM CYL6 


041520 
051104 


042124 
020075 


nSG6: 


.ASCIZ 


/EXPCTD HDR= / 


050040 


036503 


nSG7: 


.ASCIZ 


/ PC= / 


047103 
042122 
047104 
052105 


051124 
020131 
052047 
000 


nSGlO: 


.ASCIZ 


<15><12>/CNTRL ROY DIDN'T SET/ 


041505 
054105 
044055 
042S22 
044055 


051124 
041520 
051104 
053103 
051104 


nSGU: 


.ASCIZ 


/SECTR EXPC P-HDR RECV P-HDR/ 



B03 



D-Il-OZWL-E. »(U-«(05 OYWRniC TEST 
DZRKLE.PU 2b-flPR-77 12:27 



tlftCYil 30(10%) lH-JlJL-77 08:03 P9C£ 27 
COrtlOfl TAGS 



less 






1 SQL. 


rvi3n37 
UUcUC'^ 


Ula 


leaf 








UU«rVr»c 




1 30Q 


nn3ncn 










1 30 1 


nfi3nci 
UUcVoJ 




1 303 


UUcTJciJ 
















1 3ac 


UUcUb" 




' 3Q(. 


nn30'73 

UUcU' c 


n3n I rtc 


1 PQ7 

I C^' 






, >30 
I li * 


nriPTTTC 

JUCU' w 


nun 


i zTI 


TPS 1 nri 


nun 


i SJU 




nun 


1 IT' 

1 iro 


UUClUC 


nun 


nroim 


nun 


1 T(TJ 
1 JUJ 


troim 


nun 


1 VM 

1 Ju^ 


UUClUJ 


nun 




UUCiUC 


nun 








1307 


002110 


040 


1308 


002111 


040 


I30g 






1310 




002114 


1311 


002114 


oooooc 


1312 


00211& 


oooooc 


13:3 


002120 


XOQOC 



051012 0S3457 

0510H0 054504 

052117 051440 
000 

052040 054522 
000072 



051104 053111 
OOG 

Q2004C 



nSC12: .ASCIZ <15><12>-R/W/S RDY NOT SET' 



000 



nSGl3: 



BLNK13 
BLNKIO 
BLra(S<3 

BLmsa 

aLNKS7 

8LNK55 
aLff(S4 
BLMK53 
BLNKS2 
BLNCSl 



FDRIVE: 
FDRVEl: 
DRHOLD: 



.flSCIZ / TRY •:/ 



nSG14: .flSCIZ <15><12> /DRIVE / 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 

.EVEN 

0 
0 
0 



/ / 

/ / 

/ / 

/ / 

/ / 

/ / 

/ / 

/ / 

/ / 

/ / 

/ / 



t 



SERRTB: 



: ITEfl 1 



f)-ll-DZWL-E. RKll-«<05 DYT<fi«IC TEST 
OZHKLE.Pli 2b-«»R-77 12:27 

131M 
1315 
1316 
1317 
1318 
1319 
132C 
1321 
1322 
1323 
i32M 
1325 
1326 
1327 

1328 0C2i22 
1329 
133G 
1331 
1332 
1333 
133H 
1335 
133b 

1337 002122 a2M33M 

1338 00212S 025500 
I33S 002126 02633M 
134C 002130 OQOOOO 

13H2 ;I^EH 

13SH 002132 024373 
1345 00213S 025500 
13% 00213fc 026334 
1347 0C214G 000000 
1348 
1349 
1350 

1351 002142 024407 

1352 002144 025500 

1353 0021% 02b334 

1354 002150 000000 
1355 
1356 
1357 

1358 002152 024423 
.359 002154 025500 
I3b0 002156 026334 
1361 002160 000000 
1362 

1363 : ITEfl 

1364 

1365 002162 024441 

1366 002164 025500 

1367 002166 026334 

1368 00217C OGCOOC 
1369 



(•J 

WJCYll XaO%) 14-JUL-77 08:03 PACE 28 
ERROR POINTER TABlE 

.S8TTL ERROR POINTER TABLE 

♦THIS T(«LE CONTAINS THE INFORflftTION CQR EACH ERROR THAT CAN OCCUR. 



;ITEN 



:ITEn 



En 

OH 
DT 
OF 



: POINTS TO THE ERROR MESSAGE 

POINTS TO THE DATA >CAOeR 

: POINTS TO "HE DATA 

POINTS TO THE DATA FORMAT 



ERROR I TENS TABLE 



ENl 
DHl 
DTI 

0 



DHl 
DTI 

0 



En3 

DHJ 
DTI 
0 



EN4 

DHl 
DTI 
0 



EMS 

OHl 

DTI 
0 



CNTRL ROY DIDN'T SET AP-'ER SEEK 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



;SIN ON SEEK 
PC RKCS RKER 
SERRPC SREGO SREGl 



;DRE ON SEEK 
PC RKCS RKER 
; SERRPC SREGO SREGl 



;'ERR' ON SEEK 
PC RKCS RKER 
SERRPC SREGO SREGl 



RKDS 
SREG2 



RKDS 
SREG2 



RKDS 
SREG2 



RKDA 
SREG3 



RKDA 
SREG3 



RKDA 
SREG3 



•DRU' ON SEEK; PUT DRIVE ON 'LOAO' BACK TO 'RUN 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



•C li-crRKL-E. RKI1-RK05 DY»i«f1IC TEST 





Pll 


2b-flPR-77 


1372 






137! 






1372 




CPS510 


1373 






i37M 






1375 


002200 


000000 


I37S 






1 3"^ 






378 






:37S 


002202 


024545 


138C 


0O22C4 


02557b 


.381 


00220fa 


026350 


1382 


002210 


000000 


i383 






138S 






i38S 






138b 


002212 




1387 


002214 


02557b 


1388 


002216 


02b350 


138S 


002220 


000X0 


13S0 






13*91 






I3S2 






13S3 


002222 


02%i5 


13*^ 


00222M 


025b53 


1395 






13% 


00222b 


02b3b6 


13*37 






13S8 


002230 


000000 


13^ 






IHOO 






IHOl 






1402 


0U2232 


Q24b33 


1403 


002234 


02557b 


140S 


00223b 


02b350 


1405 


0O22M0 


oooox 


1 40b 






1407 






1408 






140S 


002242 


024b55 


1410 


002244 


0^5750 


1411 


0022% 


OOOOX 


1412 


002250 


01545b 


1413 






1414 






1415 






141b 


002252 


Q2M70M 


1417 


002254 


0257fa7 


1418 


0022Sb 


02b35Q 


1419 


0022b0 


00X00 


1420 






1421 






1422 






1423 


0022b2 


024757 


1424 


X22bM 


025750 




X22bb 


000000 



D03 

nftCYU 3C(10Hb; 14-Jul-77 08-03 PftliE 2«J 
ERROR POINTER TABLE 






:ITEH 


b 










Enb 

DHl 
DTI 
0 


:R/U/S ROY NOT SET RFTER SEEK 
;PC RKCS RKER RKDS 
:KRRPC IREX IRECl IREC;2 


SPEG3 




;ITEf1 


7 










En? 

DH7 
DT7 
0 


:SIN ON WRITE FHT 

:PC RKCS RKER RKDS 

:teRRPC SREGO SREGl SREG2 


SREG3 


rv TMHCC 

V T ^ inutf 
SREG'^ 


:ITEn 


10 










EMIO 
DH7 
DT7 
0 


;'ERR' ON WING WRITE FIT 
:PC RKCS RKER RKDS 
;IERRPC IREGO IREGl IREG2 


SREG3 


SREG4 


:ITEn 


11 










Enii 

DHll 

DTil 
0 


;SIN ON REfiO FMT 
•PC RKCS RKEP RKDS 
;DRVI CYL SUR SEC 
:SERRPC SREs;0 tREGl SREG2 
:IREG4 SREG5 SREGb IREG7 


RKDh: 




:ITEf1 


12 










Eni2 

0H7 
DT7 
0 


; 'ERR' ON REfiO Ff*T 

:PC RKCS RKER RKDS 

■SERRPC SREGO SREGl REG2 


SREG3 


SREG4 


:ITEn 


13 

Ef113 
0H13 


; WRONG HEADERS FROfI 'SEC 1 
: SECTOR I HERDER RECVD 








0 

ESR13 


;USE THIS SUBROUTINE FOR TYPING 


XT ERROR DRTfi 


:!TEn 


14 










Eni4 

DHH 

DT7 

0 


; ERROR ON IMPLIED SEEK FROM CYLfl TO CYLE 
;PC CYLfl CYLB RKER RKDS 
; SERRPC SREX SREGl SREG2 SREG3 


TRYi 
SREG4 


:ITEf1 


15 

nsis 

0H13 


;REflD WRONG HORS FROM CYLB RBOV 
:SECl HERDER RECVD 







•C-U-DZRKL-E. RKll-HkOS DYNflfllC TEST 
SZRKLE.Pll 2b-flPR-77 12:27 



»~to 


JUCC' U 


















1 a?a 








16 












1 14 Yl 
i ~JU 








1 U*) I 


UUCC' ~ 


npcoat 




DH16 


1 41? 


00227b 






DT7 




nrvinn 


fmonnn 




0 












< Hlf^ 






• ITEM 


17 


! MYi 
i ^JD 












npc 1 3t 

UC«iiCw 








UCDICJ 




DH17 

fc/n A ' 




UUCaJUC 


UCB~iU 




DTi7 




nnnnnn 






1 wm 




















I ■4m 








En20 










I <4H^ 








DK13 






nnnnnr 






1 4M7 




nieces 




ESR2Q 


* • »w 










I w^Q 
















• ITEM 
















UC JCOC 




EH21 


14^ 

i f 3w 


□nP3?4 






DHl 






UCDJw ' 




DTI 




QQ2330 






0 


















:ITEn 


22 












14^9 


□n?332 






EN22 




□n233M 






□HI 

DTI 




□n233f> 














n 

w 












1444 






• ITEM 


23 












Q0?3M? 


nP53m 




EH23 










DHll 
















Q%3(>t 




DTll 


147Q 










1471 


Q0235Q 


nnnnnn 




n 


1472 










1473 








24 


1474 








1475 


002352 


025362 




EH24 


147B 


002354 


026161 




DH24 


1477 










1478 


002356 


026M22 




DT24 


147S 










1480 


002360 


000000 




0 


;4s: 











E03 

fWCYll 30110%) 14-JUL-77 09:03 P«GE 30 
ERROR POINTER TABLE 

:C0 TO "ESRIS" POP TYPING OUT 



REflO URONG. FIRST UORO FROfl SECTOR 0. 'CYLB' .ON inPLlEC SEEf FPCf C'-h 
PC CYlA CYLB EXPCT RECVD TRY! 
SERRPC SREGO IREGl tREG2 SREG3 SREG4 



REfiO FIRST UORD FROM SECTOR I. 'CYLB* RBOVE 
PC CYLi3 EXPCT RECVO 
SERRPC SREGC SREGl SREG2 



;REfiO WRONG HE(»ER ON IflPLIED SEEK FROr 'CYLA* TC 
: SECTOR « ««OER RECVC 

-.USE THIS SUBROUTINE FOR TYPING OUT ERROR DATm 



V S' 



EROR ON DOING WRITE ON DSK 
PC RKCS RKER RKOS 
SERRPC SREGO SREGl SREG2 



SIN ON DOING l«ITE 

PC RKCS RKEP RKOS 

SERRPC SREGO SREGl SREG2 



;HE ON DOING READ 

PC RKCS RKER RKDS 

;DfiVI CYL SUR SEC 

; SERRPC SREGO SREGl SREG2 

SREG4 SREG5 SREG6 SREG7 



;CSE ON READ 

;PC TRYf RKCS RKER 

;DRVf CYL SUR SEC 

SERRPC SREGIO SREGO SREGl 

;SREG4 SREG5 SREG6 SREG7 



RKDA 
SREG3 



RKDA 
SREG3 



RKDA: 



RKDS RKDA: 
SREG2 



•c-h-dzrkl-e. RKii-py.05 D>T«nic test 

:ZR»'LE.Pi: 26-flPR-77 12:27 



F03 



flACYli aOaOMbJ lM-JUL-77 
ERROR POINTER TfiBi.E 



08:0J PAGE 31 



H82 
1483 
1S8S 
1S9S 
lS8b 
1487 
1488 
148<3 

:4«w 

14S1 
14«32 

:m 

1494 
1495 
14% 
1497 
1496 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
151& 
1517 



002362 
002364 
002366 
002370 



002372 
00237M 

008376 
0024X 

002402 
002H0S 

002H06 

002410 



002412 
002414 
002416 
0Q242C 



025376 
026266 
000000 
015620 



025440 
02S653 

026366 

OOOOCC 

025456 
026161 

026422 

000000 



025473 
025500 
026334 

oooooc 



:ITEn 25 



:ITEn 



E?1 



En2S 

DH25 

0 

ESR25 



:ITEri 26 



En26 
DHll 

DTIl 

0 

27 

EH27 
DH24 

DT24 
0 

30 

En30 
DHl 
D'l 
C 



:0ATR ERROR ON REM) FROr DISK ACORESS 
;UOROi EXPCT RECVD CYL SUR 

:USE THIS ROUTIfC FOR ERROR REPOR'^INC 



HE ON URT CHK 

PC RKCS RKER RKDS RKDA: 

DRVI CYL SUR SEC 

lERRPC SREGO SREGl IREG2 

tREG4 SREG5 IREG6 SREG7 



SEC 



URT CHK EROR 

PC TRYI RKCS RKEP 

DRVI CYL SUR SEC 

SERRPC SREGIO SREGO IREGl 

SREG4 SREG5 SREG6 SREG7 



RKDS RKDA: 
IRES2 



ERROR 

PC RKCS RKER RKDS RKDfi 
lERRPC IREGO SREGl IREG2 SREG3 



•C-li-DCRK^-E. RKli-RKOS OYTiflMiC TEST 























1 Vl 










1522 




















1 ^PM 




nt tf»nn 

Ui IDUU 






1 QPC 




(YIP 740 
nppcpc 






i 9Cw 












104401 


□□2436 

wUC ' wo 






tA>C »wi 


nno4n7 






I5X 










UUC~W • 








i SO 1 














1 04402 






1533 




nnnnnn 






153S 






























1537 
l'=3fl 






□QDD42 


000046 

WWWW <w 


0DP4 TP 












□05077 


1 7fe7fe4 




1540 


nnpofn 




□□□250 






QnP5fm 


fl3?777 


□□□P^n 


176740 

A ' w • • w 


154? 










1543 


002514 


0D5DQ1 








UIVfc3 


□05301 






i W » J 


□n25?n 

WW&3CU 


□Q137fi 










□D53DD 

UU3www 






1547 


□02524 

L#UC.3k 1 








1548 


D0252f> 


000000 






1549 


002530 








1550 










1551 












□02530 


□12706 


□01 !□□ 

WW A A 




1553 


0C2S3S 


005026 






1554 


002536 


022706 


001140 




1555 


□02542 


□01374 








□02544 

WWt3 » I 


□12706 


□□1 !□□ 

WW* AWU 




1557 










1558 


002550 


012737 
012737 


017006 

W A • WWW 


000020 

WWWWk w 


1559 


002556 


000340 

WWWw ■ W 


000022 

WWW WW w 




002564 


012737 


017162 

W A ' A Wk 


000030 

www Www 


l^^fel 


QD2572 


□127 37 


□□□34Q 

WUWw ) W 




I5b2 


002600 


□12737 


022702 

WbW * WW 


IM0034 

fc^WWW W ' 


15b3 


002606 


012737 


900340 


000036 

www www 


I5b4 


002614 


□12737 


0230 10 

WkwW * W 


000024 

WWWWk • 


I5b5 




012737 


000340 


000026 

WWWW w w 


I5b£) 


OOSbX 


005037 

fcAJ www* 


001204 

WW A k w ■ 




1567 


002634 


112737 


000001 


001115 


15£>8 


002642 


012737 


002642 


001106 


15&9 
1570 


002650 


012737 


002650 


001110 










1571 










1572 


002656 


0137*46 


QOOOOH 
002716 




1573 


002662 


012737 


000004 


1574 


00267C 


C12737 


177570 


001 14C 



G03 

riftCYll 30a046J 14-JUL-77 08:03 
ERROR POINTER TABLE 



PACE 32 



•.THIS IS THE HANDLER FOR UfCXPECTED TI»€ OUT. 
: RESTART THE PROfiRAfl. 



PRESSING CONTINUE 



BAOTHO: 



::65l: 



NOV 

TST 

CMP 

TYPE 

BR 

.ASCIZ 

NOV 

TYPOC 

HALT 



(SP),RO :SAVE PC WHERE TIME OUT OCCURED 



(SP)*,(5P)+ 
,65S 

£>4S 



<l5><12>/TIf10UT:W= 
RO.-(SP) 



RESTORE STACK POINTER 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



:SET UP FOR TYPING OUT PC 
!gO type OUT OCTAL PC 



START: RESET : CLEAR THE BUS 

::GIVE DRIVES TIME TO RELOAD HEA£)S IN CASE OF AN APT START 



20S: 



5TARTA: 
•SBTTL 



CMP 
BNE 

CLR 
MOV 
BIT 
BNE 
CLR 
DEC 
BNE 
DEC 
BNE 
HALT 



2142.9146 

STARTA 

SRKDA 

1250. RO 

l200.aRK0S 

STARtA 

Rl 

Rl 

.-2 

RO 

20S 



;ARE UE IN ACTll AUTO MCDE' 
;N0, SKIP DELAY 
; SELECT UNIT 0 
;WftIT FOR.. 
; DRIVE READY.. 
;IN CASE.. 
:0F APT.. 
;START, BUT.. 

Idon'T UAIT.. 
: FOREVER. 

;RKDS BIT 7 (DIRVE READY, nevEP 5£' 



INITIALIZE THE COMMON TAGS 



;: CLEAR THE COMMON TAGS (ICHTAG) AREA 



iSCMTAG.R6 

(R6)-^ 

ISUR,R6 ;;D0NE7 

•STACK.SP 
FEW VECtORS 
rtSCOPE.ailOTVEC 
•340.aitOTVEC+2 ; 

•serAor.sigmtvec 

•340.ai|HTVECt2 : 
IfTRApllTRAPVEC 



;: FIRST LOCATION TO BE CLEARED 
1 1 CLEAR MEMORY LXATION 



;;LOOP BACK IF NO 
; -SETUP THE STACK POINTER 



MOV 
CLR 
CMP 
BNE 
MOV 

;:INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOVB 
MOV 
MOV 

iiloUAL^TO A --rT SETUP'FOR A'SOFT WARE SWITCH REGISTER 



:IOT VECTOR FOR SCOPE ROUTINE 
tEVEL 7 

:EHT VECTOR FOR ERROR ROUTINE 
tEVEL 7 

.--.or, .wv ,:TRAP VECTOR FOR TRAP CAL^S 
•340. a4TRflPVEC+2; LEVEL 7 
•fPl3toN.atPWRVEC ;:POWER FAILURE VECTOR 

Level 7 

clear the escape on error address 

ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOP SCO^t 
SETUP THE ERROR LOOP ADDRESS 



t3M0,airaRVEC*2 
SESCftPE 
tl.SERMAX 
•..SLPAOR 
•..ILPERR 



HARDWARE SWITCH REGISTER. IF NOT FOUND OR_r IS 



MOV akRRVEC.-tSP) 
MOV •64t.aiEftRVEC 
MOV iDSWft.SWR 



SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETJP FOR A HARDWARE SWICH OEi:S'E«^ 



002676 012737 1 77570 



IC TEST 



H03 



1575 

11?^ 

1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 

1588 
1589 
1590 
1591 

{594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
160H 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
1626 
1627 

1630 



002714 
002716 
002722 
002724 
002732 
002740 



002756 



002760 

/'64 
2766 

002772 
002776 
003000 
003006 
003010 
003012 
003014 
003022 
003022 

003074 
00307H 
003100 
003102 
003106 
003112 
003116 
003120 
003124 
003126 
003132 
003136 
003140 



003142 
003150 
003152 

003160 
003166 
ra3170 
M3174 
003200 



0)0403 

012716 002724 
000002 

012737 000176 

012737 000174 

012637 000004 



001142 
176226 



001140 
001142 



MOV 



004737 
023737 
001416 



005227 
001043 
104401 

005737 
001006 
023727 
001005 
104406 
000403 
112737 

000424 



105737 
001404 
105037 
000137 
012700 
105020 
020027 
001374 
012701 
042720 
005201 
001374 



8§8§4i 000046 

177777 
003024 
000042 

001140 000176 
000001 001134 



001216 

001216 
023172 
00122Q 

001232 

177770 
000003 



64S 
65S 
66S 



.5BTTL 
:;TYPE 



BR 

HOV 

RTI 

nov 

flOV 
MOV 



■0DI5P, DISPLAY ;:flND A HAROUARE DISPLAY REGISTER 

AND THE HAROUARE 5UR IS NOT = -1 
65S :;BRAMCH IF NO TIMEOUT 

io5S,(SP) ;;SET UP FOR TRAP RETURN 

aSUREG.SUR ;; POINT TO SOFTWARE SUR 
•DISPKC. DISPLAY 

(SP)*,ai£RRVEC RESTORE ERROR VECTOR 



PC,|TKINI 



3146 



JSR 
CMP 

BEQ 69S 
TYPE PROGRAM NAME 
THE NAME OF THE PROGRAM 
INC 1-1 



:INITIALI 



IZE THE TTY HANDLER 
; ARE U£ IN ACT 11 AUTO MODE'' 
YES, SKIP TITLE 



^ "Ms 



IF FIRST PASS 
iFIRST TIME? 

..rt .00. ii^YPE^ASCIz'^STRING 
.SBTTL GET VALU^ FOR SOFTUARE SUtTCH REGISTER 

ai42 ;;ARE UE RUNNING UrCER XXDP/ACT' 

69S BRANCH IF YES 

SUR.tSWREG SOFTUARE SUITCH REG SELECTED' 

70S :BRANCH IF NO 

GET SOFT-SUR SETTINGS 



69S: 
70S: 

::68S: 

5TART1: 



7$: 
5S: 



TST 
BNE 
CMP 
BNE 
GTSUR 
BR 
MOVB 



70$ 
ll,SAUTOB 



;;SET AUTO-MODE INDICATOR 



6S: 



BR 

.A5CIZ 

TSTB 
BEQ 

CLRB 

JMP 

MOV . 

CLRB 

CMP 

BNE 

MOV 

BIC 

INC - 

BNE - 



67S : :GET OVER THE ASCIZ 

<CRLF>/RK11 DYNAAIc TEST/<15><12>/HAINDEC-11-DZRKL-E/'CRLF> 



FFUNC 
7$ 

FFUNC 
atFUNBEG 
IXXDPMD.RO 
(RO)* 

R0,tDRIVA0^2 
5$ ' 

•-10.R1 
•3,(R0J> 
Rl 
6S 



FUNCTION PROGRAM SELECTED' 

YES. CLEAR THE FLAG 
GO TO 'FUNTION SELECTION PROGRAM- 
CLEAR FLAGS FROM 
•XXDPMD' TO 'DRIVAD' 



; CLEAR BIT O'S IN 'DRIVE 
•PRESENT' FLAGS. 



:THE FOLLOWING CODE FINDS OUT THE PROGRAM CONTROL MODE: 
•PAPER TAPE (MANUAL), ACTll, RKDP CHAIN OR DUMP 



122737 000002 000041 
001160 

013737 . 000040 001220 

122737 000010 001220 
101002 

i5|Q37 001220 
005737 DO0Q42 
001424 



2S: 



CMPB 

BNE 

MOV 

CMPB 

BHI 

CLRB 

TST 

BEQ 



■2.41 

stS 

40, XXDPMD 

tlO, XXDPMD 
2$ 

XXDPMD 

42 

3S 



LOADED FROM AN RK05 ' 
BR IF NOT 

GET DEVICE INDICATOR AND DRIVE ADDRESS OF 
LOADING RK05 

DRIVE ADDRESS 7 OR LESS "> 
BR IF YES 

DRIVE ZERO LOADED THE PROGRfir? 
Til 



CHAIN MODE OR AC 
BR IF NEITHER 



AUTO ACCEPT ' 



103 




.b3l 
1637 

:b38 

IbHH 

I fans 
ib% 

lbH7 

lb* 
IbSl 

\i 

1654 
IbSS 
IbSb 
1657 

ibse 

lb59 
IbbO 
Ibbl 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
166S 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
167S 
168C 
168! 
1662 
1683 
166M 
.b85 
.r9fc 



003202 
003206 

003236 



104401 
000413 



003244 
0032% 

"~'i7 



003252 
nri'^pct. 



003264 

003310 
003310 
It 



003412 
003412 
003416 

003512 



1137U 
104403 
001 

oooSSS 

005227 

iSniif 
000411 



0050% 

001 
000 
104401 
000431 



104401 
000435 



00321C 

00122G 

177777 
003266 

001220 
003330 
0C3420 



TYPE 
BR 

5S: .ASCIZ 

flOVB 
TYPOS 
.BYTE 

"YTE 



,651 ;:TYPE «SCIZ STRING 



-(SP). 
x> 



ISP) 



3S: 



::675: 



003512 012737 002422 000004 ST2: 



BR 

.ASCIZ 
CLR 

ms 

.BYTE 
.BYTE 
TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 



nov 



• -1 

ST2 

,671 

&6f 

<15><12>/T0 TEST 
-(SP) 

XXOPflD.CSP) 

1 
0 



TYPE THE POORESS 
Y 1 CHARACTER 




FIRST TI(€ THROUGH HERE 

:G£T OVER THE ASCIZ 
DRIVE / 

CLEAR UORO OH THE STACK 

OMLY 1 CHARACTER 
SUPRESS LEADING ZEROS 



HALT PROGRAM, ft^HOVE RKOP PACK AMD RER.ACE V 



^71$ TYPE ASCIZ STRING 

^OS ::G£T OVER THE ASCIZ 

/UITH A UORK OACi!:. CLEAR LOCATION 40. AND RES^AR' POCiPA^ 



•6A0TN0.ERRVEC 



;SET TIMEOUT VECTOR FOR 
; UNEXPECTED TIME OUT 



003520 


104401 


003526 




TYPE 


003524 


000411 




::65$: 


BR 

.ASC 


003550 






64s : 




003550 


105037 


001224 




CLPo 


003554 


005001 






CLR 


003556 


012702 


001232 




MOV 




005003 






CLR 


003564 


005737 


001220 


IS: 


TST 


003570 


001403 






BEQ 


003572 


120337 


001220 




CMPB 


003576 


001411 






BEQ 


003600 


010177 


175660 


6S: 


MOV 


003604 


105777 


175642 




TSTB 


003610 


100004 






BPL 


003612 


105237 


001224 




INCB 


003616 


052712 


000001 




eis 


003622 


005722 




2S: 


TST 


303624 


005203 






INC 



:THIS CODE FINDS WHICH DRIVES ARE PRESENT & PRINTS OUT THE DPIVE 
; DRIVE NUMBERS THAT UCRE FOUND ON LINE. 

,65$ ;;TYPE ASCIZ STRING 

£)4S llGET OVER THE ASCIZ 

<15><12> /DRIVES WeSENT/ 



DRIVS 
Rl 

•DRIV0,R2 
R3 

XXDPMO 
6S 

R3,XXDPMD 
2S 

Rl.aRKDA 

SR^DS 

2S 

DRIVS 
•l.(R2; 

P3 



; INITIALIZE NO. OF DRVS PRESErr 

INITIALIZE COUNT TO 0 
LOADED FROM AN RK05 ' 
BR IF NOT 

CHECKING THE LOAD DRIVE ' 
BR IF YES 
ADRES A DRIVE 
IS IT PRESENT' 
NO. BRANCH 

INdREMENT TOTAL • OF DRVS 

SET FLAG INDICATING THIS DRV PQSN' 

.•INCREMENT COUNT 



lb87 



003b% 

003b32 

003b3M 
003b40 
003bMM 

003bb2 
003bb2 

O03h7h 
003700 
003702 

oo3':o 

003716 



003730 
0037X 

003740 



003742 

0037b0 
0037b4 

m^. 

004000 
004002 
004006 
004010 
004014 
OOH020 
004022 
004026 
004032 
004036 
30hQ4C 



062701 020000 



001354 

004737 
105737 
001010 



000137 
00S002 

001414 
104401 
001213 
010241 
10440 
001 



88§7i4 i8o48 



032* 
001404 

14401 



005202 
0027S5 



012737 



105037 
005037 
013701 
032721 
001005 
020127 
001372 
000137 
010137 
014104 
005037 
005037 
032704 
001410 
005237 



024250 
001224 

003654 



015246 
001232 



000002 
003726 



001251 



001232 
001223 
001230 
001102 
001112 
001226 
000001 



001252 

015246 
001226 

X2116 
002114 
000002 

3C2116 



TE 



:;67S: 



3S: 

51: 



&6S: 
4i: 



£^00 

BNE 

JSR 

TSTB 

□nt 

.flSCIZ 

J HP 

CLR 

MOV 

TSTB 

BEQ 

TYPE 

SCRLF 

«0V 

TYPOS 

.BYTE 

iW' 

BEQ 

TYPE 

BR 

.ASCI2 

INC 
TST 
CMP 
BLT 



■20000, Rl 
IS 

PC.SIZEF 

drIvs 

3S 

/ NONE/ 

lEOP 

R2 

•gRiVO.RO 
4S 



R2.-(SP) 



flORES THE NXT DRV 

5 Wo8 WW 



NEXT DPV PRSN' 



FIND UHICH ARE FS 
UERE my DRIVES FOUND^ 
YES. BRftNCH 

IP NONE UERE FOUND. GO 

TO THE END OF PROGftftM 

DRIVE NUMBER 

TPBLE OF AVAIL DRIVES 

DRIVE HERE' 

NO 




PUSH NO ON THE 5 
TO TYPE OCTAL fil 



TACK 

TYPE 1 DIGIT, SUPRES5 LOG C'5 



P2 

(R0) + 

R0.I0RIV7+1 
5S 



IS IT RKOSF' 



POINT TO NEXT DRIVE t 
NEXT DRIVE IN TABLE 
ALL DONE' 
NO, CHECK REST 



;FIND OUT THE FIRST (FROM 0-7) DRIVE THAT IS PRESENT PUT THE ADDRESS 
jO^ THAT DRIVE IN 'DRIVAO'. INDICATE THAT DRIVE • Ul.v. 



001226 



;BE TESTED. 
ST3: 



NXT DRV: 

IS: 

4S: 

2S: 



MOV 
CLRB 
CLR 
CLRB 
CLR 
MOV 
BIT 
BNE 
CMP 
BNE 
JMP 
MOV 
MOV 
CLR 
CLR 
BIT 
BEQ 
INC 



•DRIVO.DRVPTR 

DRVDON 

DRIVAO 

STSTNM 

SERTTL 

DRVPTR.Rl 

il,(RlU 

2S 

R1.IDRIV7+2 
IS 

SEOP 

fll.DRVPTR 
-(ftl),P4 

fdrveI 

FDRIVE 
•2,RH 

fSrvei 



RESET TEST NUMBER TO 1 

CLEAR ERROR COUNT FOR THIS DRIVE 

IS THIS DRIVE PRESEN'' 
YES. BRANCH 

CHECKED THE UHOLE LIS''" 
NO 

YES. EXIT 
NO. GO AHEAD 

CEt DRIVE NO. TO BE TESTED 

SHOWS F IF -1 

RK-05F' 

NO 

SHOWS F 



•C-U-OZRKL-E. RKU-RKK DYNflWIC TEST 
DZRKLE.Pll 2b-APR-77 12:27 



K03 

nfiCYU 30(1046) 14-JUL-77 08:03 PAGE 3fa 
GET VflLLC FOR SOFTUftRE SWITCH REGISTER 




1745 
17% 
1747 
1748 
174q 
1750 
1 
1 
1 

1754 
1755 

1758 
175*3 
17M) 
1761 
17b2 
I7b3 
17b4 

\m 

l7bB 
I7b'3 
177D 
1771 
1772 
1773 
1774 
1775 
177b 
1777 
1778 
1779 
1790 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
17B<3 
1790 
1791 
1792 
1793 
1794 
1795 
17% 
1797 
r98 



004052 
004060 
»4 



004074 
004076 



mm 

012737 
042704 

m 

000241 
006104 

004106 0104% 
004110 104403 

mm m 

004114 005737 

SffiilS 184481 

004126 000401 

004132 
004132 



020000 

17"'777 002114 
000003 



00211b 
004130 



m 

MOV 
BIC 

nov 

TYPE 
CLC 
ROL 
ROL 
ROL 
ROL 

nov 

TYPOS 

■BYTE 
.BYTE 

TST 
BR 

•PSCIZ 



Jp)00.R4 

•-1.FDRIVE 
•3.ft4 

RJI^gRIVPO 

R4 
R4 
R4 
R4 

R4,-(SP) 

4 

FDRVEl 
/F/ 



DRIVE'' 

Irkosf and even 
;set up drive acres 

:type out the drive no. 



004132 


105037 


001222 






CLRB 


004136 


032777 


000400 


174774 




BIT 


004 144 


001445 








BEQ 


0041% 








5S: 


TYPE 


00414b 


104401 


00415-^ 






004152 


000410 








BR 






::fe7|: 


.flSCIZ 


004174 












004174 


104H12 








RDOCT 


004176 


012600 








flOV 


004200 


001762 








BFQ 


004202 


020027 


000011 






CPP 


004206 


003357 








B(.T 


004210 


110037 


001102 






novB 


004214 


005300 








DEC 


00421b 


006300 








fiSL 


004220 


016037 


001560 


001106 




flOV 


004226 


013737 


001106 


001110 




nov 


004234 


105237 


001222 






INCB 


004240 


000177 


174642 






jrtP 



RK-05F' 

??YPE ASCI2 STRING 
;G£T OVER THE A5CIZ 

;;b5S: 
b4J: 

5U 8 IS SET THEN Flf© OUT WHICH TEST NUHBER IS 
: SELECTED AND JUMP TO THAT TEST. 

LUPSU ; CLEAR FLAG INDICATING SUB SE^ 

•SUB.aSUP :SU B SET? 

TSTl :N0, BRANCH 

,b7J ;: TYPE ASCIZ STRING 

LbS iiCET OVER THE ASCIZ 

< 15) a2> /OCTAL T^Sti'/ 



(SP)+.RO 

IS, 111 
5S 

R0,$T5TNn 

RO 

RO 

PT1(R0).SLPA0R 

SLPADR.iLPERR 

LUPSU 

aSLPAOR 



; CHECK TYPED IN TEST I 
;IS LEGAL. IF NOT ASK 

:FORn POINTERS FOR THE TEST t 

; ADJUST POINTERS FOR SCOPE 
LOOP. ETC. 

SET fLAG INDICATING TEST t 
; SELECTED 

CO TO THE TEST SELECTED 



:0N RECOVERY FROn POUER FALIURE RETURN HERE 



004244 005Q0C 
30424fe 005001 



PURFL: CLR 
CLP 



RO 
Rl 



1799 

ii8? 

1802 
1803 
IBOM 

l§8l 

i9or 

1806 
1809 
1810 
1811 
1812 
1813 
181S 
1815 
181& 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
182b 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
183H 
1836 
183b 
1837 
1838 
1B39 
18*40 
18M1 
18M2 
18H3 
18HH 
18M5 
1846 
18M7 
18M6 
18M9 
1850 
1851 
1852 
1853 
:85M 



0OS250 

dm 

Q0M2Sb 



005201 
00137M 



Q0S2b0 
0042b2 
0042bH 
00S2bb 
00S270 

00427b 
004302 
XM30b 
0OM312 

00M31M 
00S31b 
00H320 
00S322 



00M32b 
00M33H 
004340 
004344 
004346 
004352 

004354 
004356 
004360 

004362 
004370 
004372 

004374 
004400 



004402 
004404 
00440b 
004410 



000004 
005000 
005001 
005002 
012737 

012703 
012704 
012705 
000402 

005703 
001403 
005003 
104415 



004324 104416 



013777 
050277 
105777 
10040b 
004737 
104030 

005203 
005205 
001515 

012777 
005200 
001007 

004737 
104001 



005203 
005204 
001502 
000403 



L03 

rWCYll 30il04b) 14-JUL-77 08:03 POGE 37 
GET VALUE FOR 50FTUARE SUITCH REGISTER 

11: INC Rl 
BNE IS 



•.4test 1 



t§Tl 



CHECK INMER LlfllT SWITCH & ELECTROTCCHftNICflL 
ITHIS TEST PERFORMS 200(8) PURE SEEKS FROH CYLINDER 
#T0 CYLINDER 312 AND SSCK TO 0. U IS SUPPOSED TO 
•CHECK THE INMER LIMIT SUITCH AND THE MECHflNICAL 
*INTEQRITY OF THE DRIVE. NOTE THAT A VISUAL CHECK FOR 
,AHY rCCHANICAL FAILURES WOULD BE VERY HELPFUL. 



INTEGPr^ 
0 



004322 001 110 

001266 
177767 
177770 



001230 175130 

175124 

175106 

016162 



IS: 

2S: 
20S: 



3S: 



000011 175066 
016162 



21S: 
4S: 



SCOPE 

CLR 

CLR 

CLR 

MOV 

MOV 
MOV 
MOV 
BR 



RO 
Rl 
R2 

•20$,$LPERR 

•BUFR.R3 
•-11, R4 
1-10 R5 
2S 



T5T R3 
BEQ 3S 
CLR R3 
CON. RESET 

DRV. RESET 



MOV DRIVA0.3RKDA 

BIS R2,aRK6A 

TSTB aRKDS 

BMI 21S 

JSfi PC,GT4RG 

ERROR 30 

INC R3 

INC R5 

BEQ IBS 

MOV iU.aRKCS 

INC RO 

BNE 5S 

JSR PC,GT4RG 

ERROR 1 



INC R3 

INC R4 

BEQ IBS 

BP 6S 



INITIALIZE COUMT 

INITIALIZE COUNT FOR • OF SEEKS 

CONTAINS SEEK ADRE5 

SET RETURN ADRES FOR LUPING 

ON ERROR 

INITIALIZE POINTER TO THE TABLE 

ALLOW ONLY 9 CNTRL-RDY. SIN. OR R/U/S RD^ EP0P5 

ALLOW ONLY B ORU+DR£*EftR+DRY ERRORS 



WAS THERE ANY ERROR' 
NO^ BRANCH 
CLR EROR FLAG 

GO DO CNTRL RESET. SUB ROUTINE 
AT 'CNT.RST' 

GO TO 'DRV.RST' & DC DRV RESET 

ADRES THE DRIVE 
SET SEEK ADRES 
DRIVE ROY' 
YES 

NO. GET RKCS. ER. OS, DA 
DRIvE ROY Bit IS NOT SET 
IN RKOS 

SET ERROR FLAG 

ALLOW ONLY 5 ERORS, IF MORE 

ABORT 

GO. SEEK 

WAIt for CNTRL ROY 
WAITED LONG' 
IF YES. ERROR 
GO. GEt RKCS. ER, DS, DA 
CNtRL ROY DI6n'T SET AFTER 
SEEK WAS DONE TO CYLINDER 
SHOWN IN RKDA. GO TO 'RKll LOGIC TESTS- 
SET ERROR FLAG 

EXIT THIS TEST IF THERE R 5 OR MORE ERRORS 
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mi 


m 


17S040 




51: 






1857 














18S8 


Q04M20 


005000 






61: 


CLP 


RO 


1859 
I8b0 


QQ^S 
Q044X 


M2777 
001010 


000100 


175022 




BIT 
BNE 


•lOQ.aRKDS 
7$ 


1861 


004432 


005200 








INC 


RO 


1882 
1863 


004434 
004436 


004737 


016162 






BNE 

JSR 


61^2 

PC,GT4RG 
6 


1864 


004442 


104006 








ERROR 


1865 
















1866 


004444 


005203 








INC 


R3 


1867 


004446 


005204 








INC 


R4 


1868 


004450 


001461 








BEQ 


18S 


1869 


004452 


032777 


001000 


174772 


7S: 


BIT 


•lOOO.SRKDS 


1870 


004460 


001406 








BEQ 


8S 


1871 


004462 


004737 


016162 






JSR 


PC.GT4RG 


1872 


004466 


104002 








ERROR 


2 


1873 
















1874 


004470 


005203 








INC 


R3 


1875 


004472 


005204 








INC 


R4 


1876 


004474 


001447 








BEQ 


18S 


1877 


00447S 


005777 


174752 




8S: 


TST 


aRKER 


1878 


004502 


100006 






BPL 


lOS 


1879 
















1880 


004504 


004737 


016162 






JSR 


PC,GT4RG 


1881 


004510 


104003 








ERROR 


3 


1882 
















1883 


004512 


005203 








INC 


R3 


1884 


004514 


005205 








INC 


R5 


1885 


OOMSlb 


001767 








BEO 


BS 


1886 
















1887 


004520 


005777 


174732 




lOS: 


TST 


aRKCS 


1888 


004524 


100006 








BPL 


12S 


1889 


004526 


004737 


016162 






JSR 


PC,GT4RG 


1890 


004532 


104004 








ERROR 


4 ' 


1891 
















1892 
















1893 


004534 


005203 








INC 


R3 


1894 


004536 


005205 








INC 


R5 


1895 


004540 


001425 








BEO 


18S 


1896 
















1897 


004542 


032777 


002000 


174702 


12S: 


BIT 


l200C,aRKDS 


1896 


004550 


001406 








BEO 


15S 


1899 


004552 


004737 


016162 






JSR 


PC.GT4RG 


1900 


004556 


104005 








ERROR 


5 


1901 
















1902 
















1903 
















1904 
















1905 
















1906 
















1907 
















1908 


004560 


005203 








INC 


R3 


1909 


004562 


005205 








INC 


P5 


1910 


004564 


001413 








BEQ 


18? 



Tl C«CK INNER LIMIT SWITCH & ELECTROflECHANICftL IN'E^^PT 

INITIALIZE COUNT 
R/W/S RDY SET' 
YES 

WfilT FOR R/U/S RDY 

GET RKCS, ER. OS. Dft 
R/U/S ROY Dl6 NOT SET UHEN SEEK 
UflS DONE TO CYLINDER INOICfi"'ED IN PKDft 
SET ERROR FLftG 
IF NAXn EROR COUNT, ABORT 

SIN ERROR' 
NO, BRANCH 

GO, GET RKCS, ER, DS. DA 
SIN ERROR. ON DOInG §EEK TO 
CYL AS SHOUN IN RKOA 
SET ERROR FLAG 
IF mxn EROR COUNT REACHED. 
ABORT THE TEST 
ORE ERROR' 
NO, BRANCH 

;Gg. GET RKCS, ER, OS, OA 
OR^ ON DOING SEEii; TO CYLINDER 
AS SHOUN IN RKOA 
SET ERROR FLAG 
;IF mm EROR COUNT REACHED. 
; ABORT THE TEST 

'ERR' BIT IN RKCS SET' 
NO. BRANCH 

GO. GET RKCS. ER. DS, DA 
•EftR' IN RKC§ SEt, oft DOING SEEK 
TO CYL AS SHOUN IN RKOA. NOTE 
UHICH BIT IN RKER SET? 
SET ERROR FLAG 
IF HAXn EROR COUNT REACHED. 
ABORT THE TEST 

DRU SET' 
NO, BRANCH 

GO, GET RKCS. ER, DS, DA 
DRU SET. THIS IS AN IRRECOVERABLE 
ERROR. HENCE PUT THE DRIVE ON 
LOAD, BACK TO RUN. DRU ERROR 
SHOUt.D BE CLEARED, IF IT IS NOT 

1) THE HEAD POSITION TRANSDVCER LAMP 
IS INOPERATIVE 

2) OR ERASE OR MRT CURRENT PRESENT 
UITHOUT 'URT GATE* 
SET EROR FLAG 
ALLOU ONLY 5 ERRORS 
IF MORE THAN 5 
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CHECK INfCR LltilT SUITCH & ELECTROHECHftNICftL INTEGRITY 



1911 

1912 

1913 

1914 

1915 

191& 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

19% 

1947 

1948 

1949 

1950 

19j1 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1%1 

1962 

1%3 

1%4 

1965 

1966 



004566 
004570 

004572 
00457M 



005702 
001402 

005002 
000647 



004576 012702 



004602 
004604 

00%10 
004612 



00%14 
004620 



004624 
004626 
004634 
00%40 
00%42 
00%% 
00%50 
0Q%50 
00%54 
004660 
004664 
00%70 
004674 
00%76 
004700 

004702 
004706 

004710 

004712 



005201 
022701 

001241 
000404 



104401 
000137 



000004 
013737 
005737 
001003 
005737 
001126 

012702 
012703 
012701 
012705 
013704 
104415 
104416 
005000 

005777 
100001 

104415 

005046 



014500 
000200 



001640 
015224 



Tl 



15S: 



16S: 



18S: 



TST 
BEQ 

CLR 
BR 

nov 

INC 
CMP 

BNE 
BR 



TYPE 



R2 
161 

R2 
IS 

•14500, R2 
Rl 

•200, Rl 
IS 

TST2 



.riSG4 
tST12 



;G0 TO THE END OF THE PROGRfir 

;UAS SEEKING TO 0 OR 312^ 
;T0 0, BRANCH 
TO 3l2. 

SEEK t&l Tirt TO 0 
;C0 BAK & SK TO 0 

;SEEK NXT TINE TO 312 

;D0NE SEEKS 200 TlfCS' 

;IF NOT, GO BAK 
I; EXIT 



4TEST 2 FORMAT THE DISK 

;»THIS PROGRAM ASSUMES AN UNFORMATTED DISK AND ITS 
♦FORMATTING IS DOfC IN THIS TEST. A SECTOR IS FORMATTED 
»AT A TIME. THE FIRST OURO OF EVERY SECTOR IS WRITTEN 
«T0 BE A PSUEOO-HEAOER CONTAINING THE DRIVE •. CYLINDER 
«•, SURFACE Arc SECTOR •. THE FOLLOUING IS CHECKED 
»1. 'SIN' IF 'SIN' OCCURS. A DRIVE RESET IS DONE 
*ANO THE SAME SECTOR IS FOWIATTED AGAIN. THREE 
♦RETRIES ARE DONE BEFORE AN ERROR MESSAGE IS PRINTED. 
»2. 'ERR' ON FINDING THAT THE 'ERR' BIT SET, RKER 
♦SCANNED TO FIND OUT WHAT CAUSED IT AND THE 
;ftERROR IS REPORTED. 



001230 002120 
002114 

002116 



177152 
177764 
177773 
177773 
001230 



t§T2: 



IIS: 



4$: 
IS: 



SCOPE 

MOV DRIVA0,0RH0LD 

TST FDRIVE 

BNE lis 

TST FDRVEi 

BNE TST3 

MOV •-626.R2 
MOV •-14.ft3 
MOV •-5,R1 
MOV •-S.RS 

MOV DRIVflD,R4 
CON. RESET 
DRV. RESET 
RO 



174550 



CLR 

TST 
BPL 



aRKCS 
3S 



CON. RESET 



SAVE DRIVE NUMBER 

SEE IF EVEN RK-05F DRIVE 

YES 

ODD RK-05F' 

DO NOT FORMAT IF ODD RK-05F 

203 CYLINDERS, (406 TRAKS) 
12 SECTORS 

ALLOU ONLY 5 *SIN' ERRORS 
ALLOU ONLY 5 'ERR'S 
STORE ACRES OF DRIVE. 

GO TO 'DR-RST' & DO DRIVE RESET 

KEEP COUNT OF 'SIN' ERORS 

ALLOU 3 RETRIES ON SIN 

ERR' 

NO 

;G0 TO 'CN-RST' & DO CONTROL RESET 



3S: 



CLR 



-(SP) 
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T2 rOWIfiT !►€ DISK 



i%7 

1S70 
iTi 
1972 
1973 
197S 
197S 
1976 
1977 
1978 
1979 
1980 
1981 
1962 
1983 
1984 

i9es 

1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 

1995 
19% 
1997 
1998 
1999 
200C 
2001 
20Q2 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
201Q 
2011 
2012 
2013 
2014 
2015 
201b 
2017 
2016 
2C19 
2C2C 
iZ2l 
till 



004714 
004720 
0047E2 
004^ 
004735 

ao47so 

0047% 



0127H6 004722 



oioh: 

0LZ777 
010477 
012777 
012737 



0264% 

0264% 174526 
174S24 

177777 17H512 
00%7H 001110 



I2t: 



004754 012777 002003 174474 



004762 
004764 
004772 
00477M 
005000 



005002 

oostxh 

005006 
005010 
005014 



104421 
032777 
W1413 
004737 
104007 



104415 
1044ie> 

oo sgoo 

022700 
001332 



00501& 005201 



005020 
005022 
005026 
005030 
005034 



005036 
005040 
005042 
005044 
005(M6 

005050 
005054 

005060 
005064 
Q 0S 066 
005070 
005074 
005076 
005104 
005106 
005114 



001436 
005777 
100005 
004737 
104010 



005205 
001426 
005204 
005203 
001314 

012703 
0427CN 

062704 
005202 
001304 
005237 
001004 
062737 
000661 
013737 
000402 



001000 174460 
016136 



5S: 



000003 



174430 
016136 



6S: 



71: 



177764 
000017 

000020 



002114 

020000 001230 
0U2120 00123G 



8S: 



005116 00«727 016772 



lOS: 
9J: 



nov 

RTI 

nov 

P10V 

nov 
nov 
nov 



MOV 



•12S.-:SP) 

R4,0UTBUF 

•OlTBUF.aRKBO 

R4,aPK0A 

•-l.aRKUC 

•4S.SLPERR 



CON. ROY 

BIT 

BEQ 

J5R 

ERROR 



12003, aRKCS 



11000. aRKDS 
bS 

PC.CiTSRG 

7 



COW. RESET 
DRV. RESET 
INC RO 
CHP i3,R0 

arc is^2 

INC Rl 

BEQ 9S 

TST aRKCS 

BPL 7S 

J5R PC.GTSRG 

ERROR 10 



INC R5 

BE6 9S 

INC R4 

INC R3 

BTC IS 

NOV •-14.R3 

BIC 117,64 

«D0 120,64 

INC R2 

BtC IS 

INC FDRIVE 

BNE lOS 

ftOO 120000, DRIVfiO 

BR US 

nov DRHOLD.DRIVfiD 

BR TST3 

JSP PC.ftBRT 



PACE 40 



SET PRIORITY TO ZERO 
URITE THIS MORO 
FROn THIS RORES 

on THIS oia SECTOR 
mvz 1 ycm 

SET RETURN ROORESS TOR 
LUPING ON ERROR 

;G0 URT FHT 

UAIT FOR CONTROL REROY 

MAS T^CRE R SIN^ 

NO, SKIP DOING DRV RESET 

CO, GET RKCS, ER. DS. OR, CYLINDER 

Sift ERROR ON TRyInG to 

URT Fnr ON CYLINDER RS 

IfCICRTED IN RKDR. 3 RETRIES 

ARE oorc 

NOTE THRT BEFORE 

RETRYING A DRIVE RESET UAS DONE 

GO TO 'OR-SST' & DO DRV RESET 

INCRHNT SIN COUNT 

AaOH 3 RETRIES l€RE THERE 3' 

IF NOT, GC S RETRY 

AUOH Ort.Y 12 SIN ERRORS 
IF nORE THAN 5 EXIT THIS TES" 
IF nORE THAN 5 EXIT THIS TST 
DID 'ERR' BIT SET IN RKCS' 
NO, BRANCH 

go' GET RKCS. ER. DS.DA.CYL 

'eAr' occureo uhIle Doing 

mi FHT ON SECTOR, CYLlfCEP 
AS INDICATED IN RKDA. 
ALLOW ONLY 5 •ERR'S. IF 
nORE THAN 5 EXIT THIS TEST 
INCRHNT DISK AORES TO NXT 3CTR 
ALL 12 SECTORS OONE^ 
IF NOT, GO BAK & FHT NXT SCTR 
IF YES 

RESET COUNT FOR 12 SECTORS 
CLR OUT SEC BITS 

ADRES THE NXT TRAK TO B FUTED 
ALL TRAKS FHTEO' 

IF NOT GO BAK B FHT NXT CYL. SUP 0 

EVEN RKOSF' 

NO 

FORHAT 000 DRIVE OF F 

: RESTORE DRIVE ADOR 
;:EXIT 



C04 
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2023 

202S 

202b 

2027 

2028 

202S 

20X 

2031 

2012 

2U33 

2034 

2035 

2036 

2037 

2038 

203«3 

2040 

2041 

2042 

2043 

2044 

2045 

204fe 

2047 

2048 

J04q 

2050 

2051 

2052 

2053 

2054 

2055 

205b 

2057 

2058 

205S 

20b0 

20bl 

20b2 

2063 

2064 

2065 

20b6 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2C7b 

2C;77 

2C7e 



005122 

005124 

005132 
005140 
0051% 
005152 
005160 
005162 

005164 
005170 

005174 
005202 
005206 
005214 



000004 

012737 

012737 
012737 
013705 
012737 
104415 
104416 

005037 
005037 

012777 
010577 
012777 
012737 



177766 
177773 
001230 
177152 



001254 
001252 

0264% 
174256 
177764 
005160 



005230 104421 



D05232 
005240 
005242 



032777 
001420 
004737 



001000 
Q16214 



TEST 
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T3 REflO FORMflT OF THE DISK 

:»TEST 3 ... jj^5|^|^j£°yg|p§^^ THE SECTORS ARE REfC 

CCKED IF T»CY flfiECORRECT. T« FOLLOHINC IS T>C 

1. ^r|I?^2^CT0RS (W)RS Of«.Y) OT A TIP€ 
L. Jf ]S fl 'SlN-iRRbR RETRY ONCE,a« 

t REPORT EmoR i RERO «ROER FROfI NEXT CYLirm 

3. IF THERE IS 'ERR' IN RKCS, DO fi COWTROL RESET, REPOPT 
ERROR & R&O tefiOER FRQfl «XT CYL" 
nORE THRh 5 EmolS OF THIS KIW. TH 

4. THE 12 HEADERS ARE CHECKED. IF 
NEXT CYLINDER IS READ. 

IF THEY ARE HOT CORRECT. A RETRY IS DOME: IF AGAIN CORRECT 
HEADERS ARE NOT RECIEVE6. A« ERROR IS REPORTED. T« 
SECTOR I'S GIVING THE BA6 ^CAOERS, & THE BAD NADERS ARE 
STORED. 

5. IF If^IBIT TYPEOUT' SWITCH IS NOT SET, THE FIRST WORDS OF 
THE 12 SECTORS (Pa£DO-f€fiO£RS) ARE READ- IN A PREVIOUS 
TEST nC FIRST HOTOOT EVERY SECTOR MAS WRITTEN 
AS A SOFTWARE >CA0ER (CONSISTING OF DRIVE 1. CYLi. SUP.SECi- 
ThCN THE SECTOR • GIVING BAD HEADER. EXPECT^ PSODXHCAOER . 
& THE PS-tCADER RECIEVEO ARE TYPED 6UT. THIS WOULD 
WRONG. HEADER WAS READ WRONG. ETC. _ 

6. Tfe NEXT CYLINDER IN Lir* IS READ. ORDER OF READING IS 
i- CYLO.SURO CYLO.SURl CYL312,5UR1 



IF SAW ftl^l*i 



IF THERE ARE 
TEST WILL BE EXITED 
T«Y ARE CORRECT THE 



t§T3: 



177773 001504 



001506 
001510 

001476 



41: 



SCOPE 

NOV l-S.ERCNTl 

NOV •-i2.ERCNT2 
NOV •-5,^RCNT3 
NOV DRIW0.R5 
NOV 1-626, INDX2 
CON. RESET 
DRV. RESET 



II: 
2S: 

174260 3S: 

174244 
001110 



005222 012777 002005 174226 



174212 5S: 



CLR 
CLR 

NOV 
NOV 
NOV 
NOV 

NOV 

CON. ROY 

BIT 
BEO 
JSR 



RETRY2 
RETRYl 

tOUTBUF.aRKBA 
RS.aRKOA 
•-i4.aRKWC 
l4S.iLPERR 

12005, aRKCS 



•1000,9RKDS 
6S 

PC.GETINF 



005246 104C11 



ERROR 11 



{ALLOW Oft-Y 5 ERRORS (OF BAD HEACE» 

KIND FROM 5 CYLIFCERS) 
; ALLOW OftY 12 'ERR'S 

ALLOW ONLY 5 ERRORS 

SET DRIVE i^YL ADRES=0 

313 CYLS (6ft TRAKS) TO B REAC 
;G0 DO CONTROL RESET 
;G0 DO DRIVE RESET 

; ALLOW 2 RETRIES IF HDRS READ WRONG 
•ALLOW 2 RETRIES FOR 'SINS' 

:RD HDRS INTO LOC STARTING AT THIS 
FROn THIS DSK ADRES 
;12 HDRS TO BE READ 
I SET RETURN ACRES FOR LUFIn;. ON ERROR 

;GC, RD FHT OF THIS CYLINDER 

; WAIT FOR CNTRL ROY TO SET 

;'SIN' ERROR' 
;N0, BRANCH 

;'SIN' OCCURED WHEN DOING RD Ff«T 
;FR0M CYL SHOWN IN RKDA. U 
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(ri2S2 

000002 001252 





005250 
0055 


10HM15 
lOHMib 


2081 


0OS25H 


005237 
022737 


2082 


0052b0 


eOB3 


005266 


0013H2 


20BM 






2065 


005270 


005237 
001002 


20% 


00S27M 


2087 


005276 


000137 


2068 






4.08S 


005302 


005777 


2090 


005306 


100010 


20*31 


005310 


00H737 


20S2 


00531H 


104012 


20S3 






20<9N 


005316 


104M15 


2095 






20% 


005320 


005237 


20S7 






20S8 


0Q532H 


001532 


209S 


005326 


000520 


210G 






2101 






2102 






2103 






210H 






2105 


005330 


004737 


210b 






2107 


00533H 


005737 


2108 


0Q53H0 


001513 


210S 






2110 


0053H2 


012737 


2111 


005350 


104013 


2112 






2113 






211M 


005352 


005237 


2115 


005356 


022737 


211b 


00536H 


001301 


?117 






2116 


005366 


005237 


211S 






2120 






2121 


005372 


001505 


2122 






2123 


005374 




212M 






2125 






212S 
2127 










2129 






212S 






21X 


00537M 


032777 


2131 


005402 


X1072 


2132 






2133 






2:3s 


3O5H0M 


012701 



D04 
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INC RETRVl 
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001510 
005606 
174150 
016136 

001506 



6S: 



007260 
001500 

005170 OOlllC 



001254 

000002 001254 



001504 



20S: 



020000 173536 



177764 



CflP 
BNE 

INC 

ere 
jff» 

TST 
8PL 
JSR 
ERROR 



•2, RETRY 1 
3S 

ERCNT3 

6S 

16S 

9RKCS 
71 

PC.GT5RG 
12 



COM. RESET 

INC ERCNT2 



BEd 
BR 



JSP 

TST 
BEQ 

NOV 
ERROR 



INC 
CMP 
BNE 

INC 



BEQ 



T5T4 
14$ 



PC.CHKHDRS 

INDX3 
14S 

I2S,SLPERR 

13 



RETRY2 

•2,RETRY2 

2S 

ERCNTl 



16S 



BIT 
BNE 



10V 



120000. asuR 

14S 



•-14, PI 



^, .»SET 

«lL0H only 2 f^TRIES FOP THIS ERPC" 

IF TRIED 2 TINES REPORT 

ERROR. OThCRUISE CO B^K S RETRY 

UPS TftlED TWICE. BUT 'SIN' . 

ftLLOU 5 ERRORS ftT MOST 



'ERR' IN RKCS' 
NO, BR»«H 

go! get RKCS, ER.DS.Dfl^YLNDP 

•EftR' SET mhIle Doing to fmt 

FROM CYL SHOWN IN RKOfi 
GO 00 CNTRL RESET 

SKIP THIS TEST 
lEXIT 

iO SET UP TO RD FMT FRON NXT 
CYL IN LINE 

C«CK THfiT CORRECT HEflOERS UERE REC^'D. 
SECTR 9 HRVING BPD HDR IS STORED «LONG 
UITH BRO HOR 

:G0 C»€CK IF CORRECT HERDERS ICRE REAC 

MRS TfCRE R NISCOfff'RRISON'' 
IF NOT. CO SET UP TO RD FHT 
NXT CYL IN LIME 

CORRECT HDRS ICRE NOT RECVD 

FflOfI SECTRS ftS TYPED OUT. 

THE SRHE CYLINDER URS REPO TUICE 

RETRY RD FNT ON SRME CYL AGAIN 

TRIED RDING Sfl»€ CYL TUICE 

IF NOT. GO RD AGAIN 

YES^ REPORT ERROR 

ALl6w only 5 ERRORS OF THE 

ABOVE TYPE. IF MORE THAN 12 

EXIT THIS TEST 



THE PSUEDO-HEAOERS (FIRST UORO OF EVERY 
SECTOR) FROM THIS CYLINDER (ABOVE. 

THE CYLINDER THAT GAVE WRONG HEAOtRS), ^ , 

UILL BE READ, NOW. FXLOHING WILL B TYPO OU^: 
SECI» EXPCTO PSUEDO-HOR, RECVD PHDR. 

IF -Inhibit typeout- sh is set this entire 

READING & TYPING UILL BE SKIPPED 
INHIBIT TYPEOUT' 
YES, SKIP THE FOLLOWING i GO 
SET UP TO RD FNT NXT CYL IN LINE 

;READ FROM 12 SECTRS 



•C-U-OZRKu-E. RKll-RKOS DYNflfllC TEST 



fIftCYll 30(10Mb. 



E04 

lM-JUL-77 08:03 



h% 


QQSHIO 

OOSMIM 


8!?^ 


0264% 


2137 


005422 


012777 


177777 


2136 


0054X) 


012777 
104421 




213S 


000005 


2140 


0Q5S36 




21S1 


0054S0 


005777 


174012 


21H2 


005VHM 


100002 
104415 




21H3 


0054% 




2l'« 


005450 


000447 




2145 








21% 


005452 


005201 




21M7 


005454 


001362 




21H8 








2iHq 








2150 








2151 








2152 








2153 


005456 


104401 




215M 


005460 


001771 




2155 


005462 


012701 


001266 


215b 








2157 


005466 


104401 




2158 


005470 


001213 




2159 








21ba 


005472 


011102 




21bl 


005474 


012''03 


026446 


21&2 








2163 








218*4 


00550Q 


005702 




21b5 


005502 


001403 




Bibb 


005504 


005302 




21b7 


005506 


005723 




2ibe 


005510 


000773 




2169 








2170 


005512 


0111% 




2171 


005514 


104403 




2172 


005516 


002 




2173 


005517 


000 




217M 








2175 


00552C 


10H401 




2176 


005522 


002105 




2177 








2178 


005524 


010546 




2179 


005526 


051116 




2180 


005530 


104402 




2181 








2182 


005532 


104401 




2183 


005534 


002103 




218H 








2185 


005536 


0113% 




2186 


005540 


104402 




2187 








2188 


005542 


005721 




2189 


005544 


021127 


177777 


2190 


30555C 


001346 





T3 



iOS: 



READ FORMfiT Of THE DISK 



PAGE 43 



151: 



llf: 



12S: 



13S: 



nov 

fiOV 
flOV 



•-1.3RKUC 



fICV •5.3RKCS 
COM. ROY 
TST aRKCS 
BPL 151 
CON. RESET 

141 



BR 

INC 
BNE 



TYPE 

nsGii 

flOV 

TYPE 
fCRLF 

flOV 

nov 



TST 
BEQ 
DEC 
T5T 
BR 

NOV 
T-fPOS 
.BYTE 
.BYTE 

TYPE 
BLNKS5 

nov 

BIS 
TYPOC 

TYPE 
BLNK57 

flOV 
TYPOC 

TST 
CMP 
BNE 



Ri 
lOS 



•BUFR.Rl 



iRl).R2 

•out6uf.R3 



R2 

13S 

R2 

(R3)* 
12S 

(Rl).-(SP) 

2 
0 



R5,-vSP) 
(Ri),(5P) 



(R3),-(SP) 



(RIH 

(Rl). §177777 
111 



;FRQt1 THi; 
;R0 1 k«D 



;UfilT^OR CNTRL RDY 
;flNY EROR' 
;N0^ PROCEED 
'CL£(W the EROR 

IeROR. 50 COULDN'T REflO PSUEDC-HDRS 

:REflO FROM ALL 12 SECS 
;IF NOT GO RO THE NXT (TNE 

;TYPE OUT 5UED0-rt)RS CORRESPONDING TC 
;THE SECTORS UHICH GPVE BflO HEftOEPS 
;TYPE: SEC I, EXPC P-HDR. RECVO P-HCP 

:TYPE OUT 

;SEC I'S RRE STORED HERE 
;TYPE CR, LF 



;P5UED0-HEfl0£RS UHICH WEPF 
;REftO ARE STORED HERE 

:IS THIS SEC • CORRESPONDING 'HE 

:ONE IN ERROR 

:R2 CONTAINS THE SEC I 



;G0 TYPEOUT SEC • GIVING 
ImSCOMPARISON OF HEADERS 

;SUPRES LOG O'S 

:TYPE 2 BLANKS 

:G0 TYPE EXPCTD PSUEDO HEADER 



;TYPE 2 BLNKS 

;G0 TYPE PSUEDO-HEADER RECVD 

: TYPED OUT ALL SEC I'S IN ERROR. 
:IF NOT GO BAR & type NXT 



D^LE.Pll 2fc-APR-77 12:27 



YN«rtIC TEST 



F04 



flftCYll 30tlOHbj 14-JUL-77 08:03 PAGE 4^ 
T3 READ FORflflT OF THE DISK 



21<31 
21«J2 
2l'}3 

21% 

21'37 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

221fo 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

222£> 

2227 

2228 

2229 

223C 

2231 

2232 

2232 

2234 

2235 

223fc 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

22H4 

2245 

224i 



005552 
005556 



005570 
005574 
005600 
005602 



104401 
012746 
1 04402 
104401 



062705 
005237 
001404 
000137 



005606 004737 



001733 
005374 

001213 



000020 
001476 

005164 

016772 



14S: 



16S: 



TYPE 
MOV 
TYPQC 
TYPE 



ADO 
INC 
BEQ 

jnp 

JSR 



,f1SC7 

•20S -(SPi 
.ICRLF 



120, R5 
INDi(2 
TST4 
IS 

PC.ABRT 



;TYPE OUT PC 



;TYPE ROUTINE ENDS HERE 

:FIND OUT NXT TRftK TO 8 READ 
: FORMATTED 

;SET ADRES FOR SUR 0. NXT CYL IN LINE 
READ ALL 313 CYLINDERS (626 TRAKS)'' 
;:EXIT 

;iF "iOJ, GO BAK & READ NXT 



005612 
305614 



000004 
10441S 



:4teST 4 SEEK PATTERNS: 0-312-0-31 1-. ,USING IMPLIED SEEK 

;«t««TEST 2 (URITING PSUEOO-HEAOERS) SHOULD HAVE BEEN DONE BEFORE**** 
:#*## DOING THIS TEST**** 

;*THIS TEST PERFORMS SEEKS (IMPLIED SEEKS USING 'READS') IN THE 

;*F0LL0UING PATTERN. 

: »0-3 1 2-0-31 1 -0-3 10- 0-1-0-0 

:*ThE FIRST UORD OF EVERY SECTOR IS A PSEUOO-HEAOER (URITTEN IN 
:*A PREVIOUS TEST) CONSISTING OF DRIVE NO, CYLINDER NO., SURFACE 
;*AND SECTOR NO. AN IMPLIED SEEK IS DONE BY ISSUING A 'READ' FOR 
:*THE PSEUDO-HEADER OF SECTOR 0, SURFACE 0. 

:«IF A 'SIN' OCCURS TUO TRIES ARE DONE BEFORE ABORTING. IF A 'SKE' 
*OCCURS IT COULD MEAN THAT 1) EITHER THE HEADERS UAS READ URONG 
*0R 2) THE HEADS GOT POSITIONED ON THE URONG CYLINDER. IN 
*0R0ER TO PROVIDE A FURTHER INSIGHT INTO THE PROBLEM, THE FOLLOWING 

;*IS DONE: 

:«THE HEADERS ARE READ FROM THE CYLINDER THAT GAVE 'SKE'. IF THE HEADERS 
;*ARE CORRECT IT IS SO REPORTED. IF THE HEAOEW ARE INCORECT. THEN THE 
*EXPECTED HEADERS AND THE RECEIVED ONES AREREPORTED. ONE h6RE TRY IS 
!#DONE (THE IMPLIED SEEK IS TRIED AGAIN BETWEEN THE CYLINDERS THAT GAVE RISE 

;»T0 'SKE') 

:*THE FOLLOWING ACTION IS TAKEN WHEN THERE IS NO 'SKE' OR 'SIN' BU^ STI,.. THE 

: »PSEUO0-«AOER IS READ URONG: _ 
♦FIRST THE HEADERS ARE READ FROM THAT CYLINDER AND C«CKED. IF THEY ARE 
»*CORR£CT, IT IS SO REPORTED. IF THEY ARE URONG T«N THE EXPECTED ATC RECEIVED 
•HEADERS 6rE REPORTED. THEN THE PSEUDO-HEADER FROM SECTOR 1 IS READ AfC REPORT 

UONEHORE TRY IS DONE BY ^PEAnNC^HEUHOLE PROCESS. (IMPLIED SEEK 
*BETUEEN THE TUO CYLINDERS AT© READING PSEUDO-HEADER FROM SECTOR 0 OF THE DES^I 

.•♦CYLINDER). 

:*UP TO 12 ERRORS OF EACH KIND (SIN. SKE, BAD PSEUDO-«ADER ) ARE ALLOWED. 
*IF ANY ERROR OCCURS MORE THAN 12 tlHES T« TEST IS ABORTED. 

• •*ft*«**4********ft***********************************«ft********** 

t§T4: SCOPE 

CON. RESET :G0 DC CONTROL RESET 



•C-il-DZRKL-E. RK11-RK05 OYNflfllC TEST 
DZRKLE.Pil 26-flPR-77 12:27 



22H7 


00561b 


104416 






22M8 










2249 


005620 


005004 






22S0 










22SI 










22S2 
22S3 


005622 


f\ t ^^^^ 

012737 


177465 


no 1 Li^c 


225M 


0056X 


n f ^^^^ 

Q127W 


177764 




22S5 


00563M 


010037 


M1504 




22Sb 


005640 


010037 


001506 




2SS7 


0CS64M 


01M37 


001510 




22S6 










22S9 


005650 


012737 


01450C 


on * 5t n 


2cb0 










eeel 










2cb2 










22b3 


0G5e56 


005704 






22oM 


005660 


001005 






22e5 


005662 


013705 


001260 




ddtitt 


005666 


053705 


0Q12X 




22b7 


005672 


000402 






22b8 


□056 7M 


013705 


001230 




22bS 










2270 






ft 

T 






□05'OC 


012737 


17777b 


□012bH 


2272 


005706 


012737 


177776 


nn 1 

001252 


2273 


005714 


012737 


1.77777 


00125b 


227M 


005722 


000404 






^^^^ 

2275 


005724 


104415 






2276 


OOs/cD 


104416 






^^^^ 


005730 


DIH737 


0Q65c6 




2278 










2273 


005734 


012777 


\77777 


17351b 


2280 


005^42 


010577 


17351b 




2281 


00574b 


012777 


026446 


17350b 


2282 


005754 


012737 


005724 


nn f 1 1 n 

001110 


2283 










c2BH 










2295 


005762 


U 12777 


000005 


173466 


22do 










2287 


□05770 


104421 






2288 










228*3 


□05772 


UX.777 


1 Ann 
UClUOO 


1734bc: 


22S0 


rKXkOOO 


001434 






22t1 










CCTC 


□06002 


004737 


nit "^^t 

01637b 






UUoUUO 


Ul J/ 


1 7^uun 
1 / J*t*tU 




22SM 


3060J4 


017737 


173434 


001 Ibb 


22% 


006022 


104420 


001602 




22% 


006026 


013737 


001256 


001 172 


22S7 


006034 


062737 


000002 


001172 


2298 


006042 


104C14 






£299 











23X 



G04 



30li046J 14-JUL-77 08:03 PftCE 45 
SEEK PPTTERNS: 0-312-0-311-. .. .USING IMPLIED 



DRV.RESEf 
CLR R4 



MOV •-313.INDX2 

nOV 1-14.60 

nOV RO.EftCNTl 

MOV R0,ERCNT2 

MOV R0.ERCNT3 

MOV 114500, INAOR 



TST R4 

src 2S 

MOV iNflOR.RS 

BIS 0RIVR6.RS 

BR 3S 

MOV DRIVflO.RS 



MOV •-2,RETRY2 

MOV 1-2, RETRY 1 

MOV i-l,RETRY3 

BR 5S 

CON. RESET 

DRV. RESET 

JSR PC,SBR1 

MOV I-IJRKUC 

nOV RS.^KDA 

MOV tOUrBUF.aRKBfl 

MOV 16S,SLPERR 



MOV iS.aRKCS 

CON.RDY 



BIT 
BEQ 

JSR 
MOV 
MOV 

TYPMSG 
MOV 
ADD 
ERROR 



11000. SRKOS 
8S 

PC.ERRl 
9RiS;DS,SREG2 
aRKER,SREG2 
.MSGl 

ftETRY3.JREG4 
•2,SRE64 

14 



:G0 DO DRIVE RESET 

;FLftG. CLR IF DOING IMPLI-l: 
;SEEK IN FROM 0 TO 'INftOR' 
;=1^ IF GOING FROM 'INftOP' 
:OUt TC CYL 0 
;313 SEEK PATTERNS 

:fiLL0U ONLY 12 ERRORS 
;0F THESE KINDS 



'INflOR' CONTPINS THE INEP 

CYL TO UHICH IMPLIED SEEK UIlL 

BE DONE 

GOING IN OR OUT' 

GOING OUT. BRANCH 

SET CYL p6RES BITS FOR GOING IN 

FORM DISK ADRES FOR INNER 

CYLIM)ER 

FORM DISK flORES FOR OUTER 
CYLINDER - 0 
ALLOW 2 TRIES UHEN 
ERRORS OCCUR 



; REPOSITION HEADS TO PRE-ERROR O.. 
;REAO 1 UORD 

FROM THIS CYLINDER. SEC 0 
•.INTO THIS BUS AORE§ 
:SET RETURN ADRES FOR LUPING 
Ion -ERROR' 

:G0, READ 

;UAIT FOR CNTRL ROY 
;SIN' 

;N0. BRANCH 
YE§, THERE UAS A SIN 
;G0 6ET. CYLS BETH' N WHICH SK UAS 



:SAVE TRY I ON 'SIN' 

AN IMPLIED SEEK WAS TRIED 
FROM 'CYLA' to 'CYLB* (INDICATED 
IN EROR MESAGE). 'SIN' OCCURRED. 
2 TRIES ARE DONE BEFORE 
ABORTING 



2X3 
230^ 
2305 



230e 
230*3 
2310 

2313 
231M 
2315 
231b 

^318 
2319 



OOfeOHM 
00£)05C 



CX3b0b0 
OObObS 

006072 
0061X 
00&102 
OOCilOb 
OO&llM 

00613b 
0061H2 



005^37 
001H03 

005237 

001103 
000137 

032777 
X1506 
00M737 
017737 
017737 

104H20 
10MQ14 



001256 
001256 

00150S 71: 
OObbl'^ 

010000 17335H 9S: 

016376 15$: 
173342 001166 
173332 001170 

m mm 

001610 



TST 
BEQ 
INC 
BR 



5|TRY3 
R|TRY3 



INC ERCNTl 
BNE 19S 

JHP ExTs 



BIT 
BEQ 
JSR 
MOV 
NOV 

fiov 

TYPnsG ,ri§G2 

ERROR 14 



110000, aRKER 
20S 

9^|R?iREG2 
aRKDS SREG3 
RETRy1.SR£G4 
I3.SRE&4 



2323 
2324 
2325 
2326 
2327 
2326 
232S 
233C 
2331 



006144 
006146 



104415 
004737 



006552 



006152 012777 000015 173276 



9S: 



CON.RESE' 

JSR PC.SBR2 



MOV 



I15.SRKCS 



2334 
2335 



2338 
233S 

2341 
2342 
2343 
2344 
2345 
2346 
2347 
23HB 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
=357 
2356 



006160 005737 001500 
006164 001006 



166 QQ5237 
172 001414 
006174 104420 



00620C 000405 



001252 
001657 



006202 005237 
006206 001411 



001252 
00621D 104417 000015 



006214 124423 

306216 004737 206526 



lOS: 



lit: 



IN0X3 
lOS 

J<|TRY1 
TYPnSG .fISGS 



TST 
BNE 
NC 



BP 



INC 
BEQ 



US 



RETPYl 
14$ 



MESflGE .15 
RESDON 

JSP PCSBPl 



!-S?1-^!*^Us!nC IHPLIED SEEK 



DONE STRIES 
YES. BRANCH 
CO 60 2tC TRY 



;«LLOU LESS THflN 12 ERORS OF 'HIS 
;IF nORE SKIP THIS TEST 
:EXIT THIS TEST 

:SKE' 

;G0 GET 2 CYL NOS. BETWEEN WHICH 
llfPLlED SEEK ml DONE 

;GET TRY t ON "SKE" 

GO PRINT 'SKE' 

IN EROR MESftCE): 'SKE' OCCUPREC. 
2 TRIES ARE DONE. 
DO CONTROL RESET 

GO READ 12 HEflDFRS FROM 
THIS CYLINDER & COflPftRE 
THEM. NOTE RS CONTAINS THE^ 
DISK PORES THAT UILL BE USEC. 

&LE ?Hj^Ivf IS DO;tNG RE5E' 
THE MORS THAT WERE READ 
ABOVE ARE CHECKED, PRINTEC 

UAS THERE A NISCONPARISON 
IN ANY HEADER' 
IF IN0X3>0, THERE WAS. 
NO. THERE WASN'T. MORS OK 
ONCy 2 TRIp FOR SKE 
BRANCH IF THIS UAS A 2ND TP> 
TYPE OUT THAT HOPS WERE READ 
CORRECTLY. THIS WAS TP> « 1 



HDRS WERE READ INCORRECT. 
ALLOW 2 TRIES FOR 5KE 
BRANCH. IF THIS WAS 2ND TRY 

THERE WAS SKE ON DOING IMPLIED^ 
SEEK TO 'CYL B". THEN HDRS UERE 
READ FROM CYL B, WRONG HDRS 
RECVD 

WAIT FOR PREVIOUS DRIVE RESE"" 
TO BE DONE 

GO. REPOSITION HEADS 



•C-ll-DZRKL-E. RKll-RKOS DYNflniC TEST 
3ZRKLE.P11 26-flPR-7r 12:27 



2359 
2362 

1^ 

23b3 

23bfa 

2387 
2366 

i3 



2371 
2372 
2373 
237M 

2375 
237b 
2377 
2378 
2379 
2380 
2381 

238S 
23SS 
2386 
2387 
2388 

23es 

23SO 
2391 
23S2 
2393 
239M 
2395 
23% 
2397 
2398 
2399 
240C 
2H01 
2MC2 
2M03 
2M04 
2405 
2H06 
2H07 
2408 
2409 
24 10 
2411 
2412 
="tl3 



00b222 000834 



008224 10H42C 001857 



308230 
008232 



008244 
008246 

008254 

006256 
006280 



006282 
008264 



006274 
006300 

006302 

006310 

006312 

006318 



008324 
008330 
006332 
006340 
008348 



000402 
104417 



008238 104423 



008240 005237 



001002 
000137 



15704 
1007 



005703 
001005 



005204 
004737 



000C15 

001508 
006614 



008270 000137 



005237 
001547 



008526 
00585o 
001478 



162737 000040 GO 1260 
005004 

000137 005658 



nficni 3oao48j 



ID4 

14-JUL-77 08:03 PftGE 47 



SEEiC PfiTTERNS: 0-312-0-31 1-. .. .JSING IflPLlEC SEEf 



008318 012737 



12J: 

14$: 
16S: 



171: 



18S: 



19S: 



20S: 



020537 
001471 
013737 
082737 
004737 



00570C 001 110 
026446 

001254 001172 

000003 001172 
016378 



BR 

TYPMSG 
BR 

lESOGE 
RESOON 



BNE 

TST 
BNE 

TST 

Br€ 



INC 
J5R 

J1P 

INC 
BEQ 

SUB 

CLR 

JNP 



4S 

,nSG5 

18S 

.15 



INC ERCNT2 



17S 

EXT4 

R4 
19S 

R3 
19S 



R4 

PC.5BR1 
IS 

\w 

•40.INfiOR 

R4 

IS 



NOV •3$,SLPERR 

CMP R5.0UTBUF 

BEQ 24i 

NOV RETRY2.SREG4 

ODD •3,SREi4 

JSR PC.ERRl 



2N0 TRY. SKE THIS 11% flLSC. BL' 
REftO \WS CORRECTLY rROfi 
CYLINDER THRT CAVE SKE 
NOTE THIS UftS THE 2fC TRf 
TYPE OUT THAT HDRS UERE 
RERO CORRECTLY. 



:2ND TRY. SKE THIS TINE ftLSO. 

;REAO HOftS FROM CYL THfiT 

:GfiVE SKE, THEY UERE INCORREC. 

:UftIT FOR PREVIOUS DRIVE RESE^ 
;T0 BE DONE 

:flLL0U ONLY LESS THfiN 10 ERRORS CF 
:THIS TYPE (SKE) 

•.EXIT THIS TEST IF HOPE 

:UENT LAST TINE IN OR OUT^ 

;0UT 

:IN 

;UERE HDRS CORRECT? 
;N0 
YES 



:G0 POSITION HEPOS BAK ON INNER 
;CYL 

:G0 BAK & SEEK OUT NOU 



PATTERNS DONE^ 



SET ADDRESS FOR THE NXT 
INNER CYLINDER 

INDICATE THAT NOU SEEK IS GOING 
TO BE IN 

GO BAK i SEEK IN TO 'INADR' 

IF THERE WAS NO SIN OR SKE 
ENTER HERE 

SET RETURN ADRES FOR LUPING 
ON ERROR 

CORRECT PSUEDO-HEADER READ" 
YES, BRANCH 
GET TRY I 

GO GET CYL I'S BETU'N 
UHICH IMPLIED SEEK (READ. 
UA5 DONE 



rO-U-DZRKL-E. HKU-RKOS DYfififllC TEST 
D2RKLE.P11 ?t)-flPR-77 12:27 

Q10537 OOUbfa 
013737 026446 001 17C 
0063bM 10401b 



J04 

n«CYll 30 (104b) 14-JUL-77 08:03 P«GE 48 

T4 SEEK PfiTTERMS: 0-312-0-31 I .USING IHPLIED SEEK 



2S2S 006374 

242S 

2426 

2427 006400 

2428 

242<9 

2430 

2431 006404 

2432 006410 

2433 006412 



)14l?'' 
000137 



001254 
005706 



004737 006552 



21S: 



005737 
001003 
104420 



006424 
006426 

0064M2 
006450 
006456 
006460 
006%4 
006470 
006474 
006502 

006506 

006512 

006514 
006516 

006520 
006522 



010500 
005200 

012777 
012777 
104421 
010537 
004737 
010037 
013737 
104417 



001500 
001657 



006416 000402 

006420 104417 000015 



22$: 



23i: 



173030 

026446 173020 

177777 173010 

000005 173000 

001162 
016434 
001164 

026446 001166 
000017 



005237 001510 

001440 

005704 
001266 



24$: 



nOV R5.$REG2 
nOV 0utBUF.$REG3 
ERROR lb 



INC RETRY2 
BEQ 21$ 
JNP 13$ 



JSR 



PC.SBR2 



TST INDX3 
BNE 22$ 

TYPnsG .nsGS 



BR 23$ 
riESAGE , 15 



005204 
000137 



005656 



NOV 
INC 
MOV 
NOV 
NOV 
NOV 

CON.RDY 

NOV 

JSR 

MOV 
NOV 

NESAGE 



INC 

BEO 

TST 
BNE 

INC 
jriP 



R5.R0 
RO 

RO.SRKDP 
•O0TBUF,aRKBf» 
l-l.aRKUC 
•5,ilRKC5 

R5,$REG0 

PC.GCYL 

RG.$REG1 

OutBUF.$REG2 

,1' 



ERCNT3 

EXT4 

R4 
19$ 

P4 
1$ 



GET EXPCTD PSUEDO-HOR 
GET PSUEDO-HOR RECVO 

v,^« w.. .*-flCE). BUT 
THE URONG PSEUDO-HEflOER MS 
RECEIVED 




UfiS DONE. 



GO REfiO HEftOERS (12) FROM 
THIS CYLINDER. & CHECK THEfi. 
HIgCOMPfiRlSON INDX3 UILL 



FROM THE SANE CYLINDER. THEY 
UERE CORRECT 

URONG P5UED0-WR MS READ 
FRON 'CYLB' (IN ERROR MESAGE). 
THEN HEADERS UERE READ FROM ^HE 
SAME CYLINDER. THEY UERE A..SC 
URONG. 

NOU READ THE PSUEDO-HEADEP 
FROrt THE NEXT SECTOR ( I > 
SAME CYLINDER 



;G0 GET CYL I & STORE IT IN $PEGO 
;GET EXPCT PSUEDO-HOR FROM SEC 1 

PSUEDO-HEADER FROM SEC I. CYLB 
(IN MESAGE) UAS READ. THE EXPC'D 
& RECVD DATA UORDS ARE REPORTED. 
ALLOU ONLY LESS THAN 10 ERRORS 
OF THIS TYPE (URONG PS-HORS) 



SEEKED IN OR OUT LAST TIME' 
IF OUT, GO SEEK NXT INNER CYL 
IF IN. GO SEEK BAK TO 0 
INDICATE THA^^ SEEK OUT (0) 
UILL BE DONE NOU 



:THIS ROUTINE IS USED IN THIS TEST ONLY. 
;R4=0 INDICATES SEEK BEING DONE FROM 
;CVL 0 rO INNER CY.. 



as94 
2sg7 

2MSe 

2S00 
2501 
2502 
2503 
250M 
2505 
2506 
2507 
2508 
250<3 
2510 

2S13 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
U 
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3-312-0-311-.... USING IMPLIED SEEK 



ONE 



006526 
0065X 



005704 
001407 



SBRl: 



IS: 



QEQ 



R4 
IS 



RWS 



PCR^aRKOfl 



PC 



THIS ROUTINE IS USED 
ONLY, IT 

IF IT IS NOT, INDX3 IS 
THE ERROR 




IN THIS TEST 
RS FROn CYl 



AOS 12 HEAOeRS FRQh CYL 



IS R£CE] 
INCREMENTED 



INOER 

;ks 

INDICfi'ING 



006552 
006556 
006562 

006576 
006604 


012700 
012701 
010077 

012777 
104421 


177764 
026446 
172672 

002005 172652 


006606 


004737 


007260 


006612 


000207 




006614 


004737 


016772 



SBR2: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

CON.RDY 

JSR 

RTS 



EXT4: JSR 



•-14.ro 

•out6uf,ri 

RO.aRKUC 
•2605,aRKCS 



PCCHKHORS 
PC 

PC.flBRT 



;REfiD 



12 MORS 
THIS flDRES 
■ROM THIS CYLINDER 
;RD FMT, GO 



;INTO 
FF" 



;G0 CHECK IF CORRECT HEADERS MERE PEAC 
;EXIT 



006620 
006622 
006624 



000004 
104415 
104416 



;iTEST 5 PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 

;»THIS TEST PgRFORfIS fl CONVERGING-DIVERGING SEEK PATTERN 
•USING INPLIEO SEEK (READ FORMAT). THE SEEK SEQUENCE IS: 

«0-312-l-3n-2-310-3-307 310-2-31 1-1-312 

;ALL RERO FORMRTS ARE DONE FROM SURFACE 0. 
>THE CYLirCCR ADDRESSES. BETUEEN UHICH THE IMPLIED SEEK IS 
;»PERFRORfCD. ARE CONTAlfeD IN 'OUTAOR' & 'INAOR'. IF 'SIN* OCCURS 
i»AN ERROR IS^^ORTED AND A RETRY IS DQfC. ON READING INCORRECT 
•HEAOere AH EWfoft irREPORTED AMD P RETRY IS DONE. NOTE THAT IF 
*ALL THE 12 «A0£RS ARE INCORRECT. IT COULD MEAN THAT THE HEADS 
;*COyLQ NOT POSITION CORRECTLY. THIS UOULD BE CONFIRMED IF IN 
>PREVI0US TESTS BAD HEADERS UERE NOT RECIEVED FROM THE SAME 
1»CYLINDER. IF THAT CYLINDER GAVE BAD HEADERS IN ALL THE PREVIOjS 
>TESTS THE PROBLEM COULD BE DIFFERENT. 
;«NAXIMUM 12 ERRORS OF ANY KIND ARE ALLOMED. 
tIF MORE THAN 12 ERRORS OCCUR THE TEST IS ABORTED. 

t^TS: SCOPE 

CON. RESET ;GO,DO CONTROL RESE"' 

DRV. RESET ;GO.DO DRIVE RESET 



006626 005004 



CLR 



R4 



;(R4)=C SECKING FROM •QUTADfi' TO 'INhCR' 
iiP4)=l SEEKING FROM 'INADP* TO 'OUTACR" 



L04 



ID-ii-DZRKL-E, RKU-RKOS DYNfiWIC TEST 
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T5 PERFORH CONVERGING-DIVERGING (IflPLlED) SEEKS 



2S27 

2528 

2S2S 

2S30 

2S31 

2S32 

2S33 

2S3S 

2S3S 

2S3& 

2S37 

2S3e 

2539 

2SH0 

2SM1 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

254<3 

2550 

2551 

2552 

2553 

2554 

2555 

2558 

2557 

2558 

2559 

25b0 

2561 

2562 

2563 

2564 

2565 

2566 

2567 



006630 
006636 
006642 
0066% 

006652 
006656 



006670 
006674 
006700 

006702 
006706 

006712 
00671b 
006724 
006726 
0067X 
0Q6732 

006736 
0067H4 
006750 
006756 



012737 
012700 
010037 
010037 

005037 
012737 

005704 
001005 
013705 
053705 
000404 

013705 
053705 

005037 
012737 
000404 
104415 
104416 
004737 

012777 
010577 
012777 
012737 



177466 
177764 
001504 
001506 

001262 
014500 



001260 
001230 



001262 
001230 

001254 
177777 



007224 

177764 
172514 
026446 
006726 



001476 



001260 



IS: 



2S: 



006772 104421 



006774 
007002 
007004 

007012 
007020 
X7026 
007034 

007040 
007044 



0070% 
007052 
007054 
007060 
007062 
007064 



032777 
001443 
017737 
017737 
013737 
062737 
004737 

104420 
104014 



172444 
172434 
001252 
000002 
016320 

001602 



005737 001252 
W1403 

005237 001252 
000722 
104415 
104416 



3S: 

001252 4S: 
5S: 



172514 7J: 

172504 
001110 



006764 012777 002005 172464 



001000 172450 



001166 
001170 
001172 
001172 



NOV •-312.IN0X2 

NOV 1-14. ftO 

MOV RO.EftCNTl 

NOV R0,ERCNT2 

CLR OUTflDR 

NOV 114500, INADR 

TST RM 

BNE 2S 

NOV INflDR.RS 

BIS DRlVfiC),R5 

BR 3S 

NOV OUTflDR, RS 
BIS DRIVflD.RS 

CLR RETRY2 
NOV l-l.RETRYl 
BR 7S 
CON. RESET 
DRV. RESET 

PC,SBR3 



JSR 

NOV 
MOV 
NOV 
NOV 



•-14.aRKUC 
RS.WKOfl 
•06TBUF.flRKBfl 
I5S.SLP£RR 



NOV 12005, SRKCS 
CON. ROY 



BIT 
BEQ 
MOV 
MOV 
MOV 
flOO 
JSR 

TYPMSG 
ERROR 



•1000,aRK05 
8S 

aRKER,SREG2 
9RKDS,SREG3 
RETRY l.$REG4 
t2,SRE&4 
PC.ERR2 

,MSG1 
14 



6S: 



TST RETRYl 
BEQ 6S 
INC RETRY! 
BR 5S 
CON. RESET 
DRV. RESET 



:SET COUNT FOR DOING 312 TIMES 
;flLL0U ONLY 12 ERRORS 



; INITIALIZE 'OUTflDR' TO 0 
•.INITIALIZE 'INAOR* TO 312 

-.GOING IN OR OUT' 

; GOING OUT.BRPNCH 

;SET CYL fl6RES BITS FOR GOING IN 

;FORH DISK flORES FOR INNER CYLINDER 

;SET CYL flORES BITS FOR GOING OUT 
;FORM DISK flORES FOR GOING OUT 

; ALLOW 2 RETRIES 
;UHEN ERRORS OCCUR 



;G0 REPOSITION HEADS 

;READ ALL HDRS FROM THIS CYLINDER 
FROM THIS CYL, SEC 0 
INTO THIS BUS AORES 

;5ET RETURN AORES FOR LOOPING ON ERROR 
;REAO FORNAT.GO 
;UAIT FOR CONTRL ROY 
:SIN' 

;N0, BRANCH 
;SAVE RKER 
;SAVE RKOS 
•GET RETRY • 

;GET CYL I'S BELOU 'N WHICH 
;SEEK WAS TRIED 
•TYPE 'SIN* 

j'SIN' OCCURRED ON DOING IMPLIED 
SEEK FROM 'CYLA' TO 'CYLB' (IN 
EROR MESflGE). 

;DONE 2 TRIES' 

;YES, BRANCH 
NO. RETRY 



007066 005237 0G1504 



INC 



ERCNTl 



: ALLOW LESS THAN 12 ERORS OF THE 



[10^ 
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PCOO 






















flOV 




nn7inn 


□ l/'''777 

U i C ' ' ' 






MOV 


w ^ ^ 1 










TST RUS 




□071 ID 


WWW (b. • 






BR 


















00*4737 


WW* t-ww 




JSR 


2S95 












2S% 


00711b 


012737 


00671& 


001110 


MOV 


2S'?7 


00712H 


00S737 


001500 




TST 




0071X 


001M14 






BEQ 




007132 


10M020 






ERROR 


2b00 












2b01 













2bOH 
2605 
2606 
2607 
2606 
260S 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
261S 
2620 
2621 
2622 
2623 
262M 
262S 
2626 
2627 
2626 
262S 
2630 
2631 
2632 
2633 
263S 
2635 
2636 
2637 
2636 



007140 
0071% 
007150 
00715H 
007156 

007162 
007164 



005237 
022737 
001263 
005237 
001002 
000137 

005704 
001006 



007166 005204 



007170 
007176 



062737 
000137 



007202 005004 



007204 
007212 

007216 

007220 



162737 
005237 

001457 

000137 



007224 
007226 
007230 
007236 
007240 



005704 
00140H 
013777 
000403 
013777 



001254 
000002 

001506 

007352 



001254 



111: 



000040 
006664 



000040 
00147b 



006664 



001262 



001260 



12S: 



INC 
CMP 
Bt€ 
INC 
BNE 
JMP 

TST 
BNE 

INC 

ADD 
JflP 



CLR 

SUB 
INC 

BEQ 

JMP 



EXT5 



R5,9RK0A 
•li.aRKCS 

111 

PC.CHKHDRS 

•4I,ILPERR 

lNDi3 

lis 

20 



RETRY2 

•2,RETRY2 

4S 

ERCNT2 

lis 

EXT5 

R4 
12S 

R4 

•40,0UTA0R 
IS 



R4 

140-INflDR 
INDte 

TSTb 

IS 



ABOVE KINO 

iTmORE SKIP THIS TEST 

SIN OCCUPED WHEN GOIN'^j TO CfL ilH 

R5). A DRVE RESET HAS BEEN DONE, 

NOM TRY POSITIONING HEADS ON 

THAT CYL. 

SET CYL ADRES 

SEEK. GO 



IF NO SIN. ENTER HERE 

CO CHECK IF CORRECT HEADERS WERE READ 

SET LUP ADDRESS 

UAS THERE A BAD HDR^ 

NO. BRANCH 

UR6nG HEADERS UERE READ FROM 
'SEC I'S. ON DOING AN IMPLIED 
SEEK (ROfHT) FROM 'CYLA' TO 'CYLB' 
ALLOU 2 TRIES 

;G0 TRY 2ND TIME 

; ALLOU ONLY 12 ERRORS 

;IF MORE, EXIT THIS TEST 

GOING UHICH UAY? 
'INADR' TO 'OUTAOR', BRANCH 
•OUTAOR' TO 'INADR' 
ItCICATE THAT NXT TIME GOING 
FROM 'iNAOR' TO 'QUTADR' 
INCREMENT CYCLINDER ADRES 
GO BAK i DO IMPLIED SEEK 
FROM 'INADR' TO 'OUTAOR' 

INDICATE THAT NXT TIME GOING 
FROM 'OUTAOR' TO 'INADR' 
DECREMENT CYLINDER ADRES 
DONE ALL 312 FORUARD-BACKUARD 
SEEK PATTERNS 
;IF YES, EXIT 

;IF NOT. GO BAK & DO IMPLIED 
•SEEK FftOM 'OUTAOR' TO 'INADR' 



THIS SUBROUTINE IS ENTERED AFTER A 'SIN' ERROR OCCURED ON GOING FROM 
'CYLA' TO 'CYLB' AS INDICATED IN THE ERROR MESSAGE. BEFORE RETRYING THE 
HEADS HAVE TO BE POSITIONED BACK TO 'CYLA'. NOTE THAT A DRIVE RESET 
UAS DONE TO CLEAR SIN. 

R4=0. INDICATES SEEK IS BEING DONE FROM 'OUTAOR' CYLINDER TO ' INADR'CYLINDER. 
.R4=i; INDICATES THAT SEEK IS BEING DONE FROM 'INADR' TO 'OUTAOR*. 
§BR3: ' 



001260 
001262 



172226 
172216 



IS: 



TST R4 

BEQ IS 

NOV INADR, 3RKDA 

BR 2S 

MOV OUTAOR, aRKDA 



; GOING WHICH WAY' 
;JF FROM 'OUTAOR* TO 



INADR', BRANCH. 
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00021 



ND4 



f1«CYll 30(lCHb) lH-JUL-77 08:03 PftGE 52 
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9J^777 000011 172202 21: 



7?1r.R«s 

RTS PC 



•ll.SRKCS 



0072b0 
007262 
007266 
007272 
007276 
007302 
007310 

88^ 

007322 
00732M 

007326 
007332 



0073H2 
0073% 
0073SO 



005000 
012701 
012702 
012703 
010537 
042737 
005037 

& 

011123 
010022 

012712 
005237 
005721 
005200 
022700 
001362 
000207 



026446 
001266 
001320 
001120 
160037 
001500 

001120 



177777 
001500 



U01120 



000014 
007352 004737 016772 



2664 



CHKHDRS 

mz STORED. 
ON ENTRY: 

R5 CONTAINS DISK ADDRESS FROM UHERE HEADERS UERE READ. 

OUTBUF - 12 HEAORERS READ PREVIOUSLY ARE STORED STARTING 'OUTBLF". 

ON EXIT: 

INDX3=0, IF THE HEADERS HERE CORRECT 
IN0X3=1. IF THE HEADERS UERE INCORRECT 

BUFR - Sector i's giving bad heaorers are stored starting at 'bufr*. 

BUFRl - BAD headers FOR T« ABOVE SECTORS ARE STORED STARTING 'BUFRl' 
THE BAD SECTOR TABLE IS TERMINATED BY A '177777' UORD. 



CHKHDRS: CLR 
MOV 
MOV 
MOV 
MOV 
BIC 
CLR 



qi: 



lOS: 



CMP 
BEQ 
MOV 
MOV 

MOV 
INC 
TST 
INC 
CMP 
BNE 
RTS 



RO 

•OUTBUF.Rl 

IBUFR.R^ 

•BUFRi.RS 

rs.sgdAor 

•1&0037,SGDADP 

IN0X3 

S^A0R,(R1) 

(R1).(R3)+ 
R0,(ft2)+ 

9177777, iRS) 
INDX3 
(Rl) + 
RO 

•14, RO 
9S 

PC 



INITIALIZE FOR 14 HORS 
INITIZLIZE PTR TO HDRS RECVD 
INITIALIZE PTR TO SECTOR TABLE 
INITIALIZE PTR TO BAD HOR TABLE 

GET EXPCTD HEADER 

CLR FLG INDICATING BAD HDRS 

HEADER OK' 
YES.BfWNCH 
SAVE BAD HDR 
SAVE BAD SECTR I 

PUT TERHINATR ON SECTR TABLE 
SET FLG INDICATING BAD HDR 
iNCRtINT PTR TO NXT HDR 
ALL HORS CHKD' 

;IF NOT, LUP BAK 



EXT5: JSR PC,ABRT 



! :«««»«ft«»ft««»»««««««f«*«««*x«ff ««#«»««»«»««««««««««**«««*«*«*«** 

;*TEST 6 MRITE PATTKtg ON THE DISK 

*IN THIS TEST DIFFERENT PATTERN? ARE WRITTEN ON THE ENTIRE DISK. 
«UOROS (3 SECTORS) ARE WRITTEN AT A TIME. TUO 766 UORDS LONG 
«BUFFERS HAVE BEEN USED IN THIS TEST. MHILE ONE BUFFER IS 
»USED TO WRITE ON THE DISK, THE OTHER BUFFER GETS FILLED UP UITH 
»PflTTERNS TO BE USED NEXT! THI? OVERLAPPING IS DONE TO SAVE TIME. 

tTHREE PATTERN-GErCRATOR SU8-R0LTINES ARE USED: 
#1. PTGENG 2. PTGENl 3. PTGEN2 4. PTGEN3 

tTHESE THREE ROUTINES ARE CALLED IN A CYCLIC ORDER: 

» PTCEN0-PTGEN1-PTGEN2-PTGEN3-PTGEN0-PTGEN1 

«THE FOLLOWING ORDER IS MAINTAINED IN WRITING BLOCKS (EACH 
#3 SECTORS LONG) USING ONE OF THE FOUR PATTERN GENERATORS: 



B05 
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2b% 

2t»97 

IIS 

270C 

U 



HRCYil X(10%) 14-JUL-77 08:03 P«C£ 53 
Tb *ITE PflTTERMS ON T>€ DISK 



2703 
2704 
2705 
270b 
2707 
gTOB 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
271b 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
272b 
2727 
2728 
2729 
27X 
2731 
2732 
2733 
2734 
2735 
273b 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
274fc 
2747 
2746 
2749 
275C 



tCYL SECTORS 



ins 



» 1 
ft 1 

» 2 

*£TC, 



SUR 

0 
1 
0 

i 

ETC 



0-2 

8:1 



R0UTI« 
PTGENQ 
PTGDC 
PTQENO 



CYL SECTORS 



PT 



SUR 
0 
1 
0 

i 



b-lQ 
b-10 
b-10 
b-lQ 
b-10 



ftOUTIfC 
PTGEMl 
PT®il 
PTGENl 



0 
0 

1 



0 

1 

0 

i 



SECTORS 



?1 

3-5 



ROUTIfC 
PTQEfC 
PT»C 
PTGEN2 



CYL SECTORS 



0 11-13 
11-13 
11-13 



1 
0 



11- 



ROUTI 
PTGEN3 

pt2n3 

PTGEN3 
PTC 
PTC 



TC 



X735b 
0073b0 
0073bb 
00737H 
a07M02 
OOTMOb 



007412 
007420 

00742b 
007432 
007440 

007H4M 
0074% 
0O74S2 
007454 



000004 

012737 I777b4 001504 

012737 1777b4 00150b 

012737 177152 001474 

005037 001410 

005037 001412 



t§Tb 



tnc' ABOVE SHO**< STQCGERINC (OF SECTORS TO BE WITTEM) IS DOfC 
ftSftVE ore REV (40nS) every TIHE fl BLOCK (3 SECTOg) ISlf ITTEN. 
ft IF YOU UfWT TO USE BUFFERS STARTING AT SOfC OT»CR PCHORY RDORESS 
#fM(E Ttf FOLLOWING CHANGES' 

•CHANCE -PBUFO' TO STARTING' AOORESS OF THE FIRST TbBHORDS LONG BUFFER. 
ftCHRN^ 'POJFl' TO STARTING ADDRESS OF SECOTC 7b6 WORDS LONG BlfF£P. 

ftIF YOU HAMT TO WRITE YOUR OWN PATTERNS USING PATTERN GEfCRATOR 'PTGENC- 
*Cm¥X. 'PTRNOr Arc 'PTRN02' to the patterns YOU HANT. 

«T0 mm T}C SAflE TWO (OR OfC) PATTERNS ON T« ENTIRE DISK CHANGE 
ftLOCATION 'TOTrTO 'PTGENO' T>€ STARTING ADDRESS OF PAT-GErCJ»TOR 0 
SOCATION •PAT2' TO 'PTGENO' T« STARTING ADORES OF PAT-GEJCRATOR G 
iIlOCATIoS 'PAT3- TO 'PTGEfC' T« STARTING ADDRESS OF PAT-GETCRATOR C 
#t»»»»4**ftft»*»»ftft»#«««ftft»«»**»»*»»ft*ft*»»ft*ft*ft»»»*ft*ft*»***»»*»»» 



013737 
012737 

004737 
017737 
004777 

005005 
005737 
100407 
013737 



0074b2 052737 



001230 001432 
001414 001424 

010044 

1717bb 001430 
17l7b4 



001410 

00140b 001434 
000200 001412 



IS: 
2S: 



007470 00040b 

007472 013737 001404 00143H 

00750C 052737 000200 001410 

007508 012737 007514 001 ilQ 



3S: 



13S: 



SCOPE 

NOV t-H.ERCNTl 

NOV •-14.ERCNT2 

NOV l-bft.IfCXl 

CLR BUFLCO 

CLR BUFLGl 



NOV DRIVAD.DSKflOR 

NOV •PATO,PR§>AT 

JSR PC^TBUF 

NOV aPftSPAT.PGSUBP 

JSR PCaPGSUBR 

CLR R5 

TST BUFLGO 

BNI 3S 

NOV PBUFl.BUSAOR 

BIS •8IT7, BUFLGl 

BR 13S 

NOV PBUFO, BUSADR 

BIS IBIT7. BUFLGO 

10V i4S,|LPERP 



SET COUNT FOR 313X2 TRACKS 

CLR FLAG FOR BUFR 0 

CLR FLAG FOR BUFR 1 

BIT 7 OF ABOVE FLAGS lt€N 5£" 

IICICATES, THAT BUFR TO BE JSED 

FOR SITING ON OSK 

GET DRIVE t. DISK A0RE5 

INITIALIZE ^TR TO THE FIRST 

PATRN GENERATOR 



CO GENERATE PATRNS FOR 

3 SECTOR (400X3) 

INITIALIZE COUNT FOR 4 BLOCKS 

FlfC OUT miCH BUFR TO USE 

FOR WITING ON OSK 

USE 'lOflUFl' FOR TRANSFER 

OR T« ore IfCICATED BY THE USER 

SET FLAG TO IfCICATE THAT 

URTING ON OSK WILL B DONE FRON 

THIS BUFR (BUF 1) 



;USE 'I08UF0' FOR TRANSFER 

i OR THE ONE INPICATED BY THE USER 

: INDICATE THAT 'lOBUFO* UILL 
:B USED FOR URTING ON DISK 





Pll ( 


?6-flP«-77 


12:27 


27S1 


00751M 


013777 


001432 


27SS 


007522 


013777 


001434 


2753 


Q075X 


01Z777 


176400 


27SM 


007536 


2izm 


000003 


?7S5 








275b 


00754H 


013737 


001424 


2757 


007552 


02377/7 


001424 


2758 


007560 


001C04 




2759 


007562 


012737 


00141M 


2760 


UU/5AJ 


QQ0403 




2761 


00/5/2 


062737 


000002 


2762 


007600 


004737 


010044 


2763 


007604 


017777 


171616 


276M 


007612 


004777 


171612 


2765 








2766 


007616 


104421 




2767 


007620 


032777 


140000 


2768 


007626 


001411 




2769 


007630 


004737 


016162 


277D 


007634 


104021 




2771 


007636 


104415 




2772 


007640 


005237 


001504 


2773 


007644 


001002 




277M 


00'/6% 


000137 


010432 


2775 


007652 


032777 


QOIOOO 


2776 


007660 


001412 




2777 


007662 


004737 


016162 


2778 


007666 


104022 




2779 


007670 


104415 




2780 


007672 


1W16 




2781 


00767M 


005237 


001506 


2782 


007700 


001002 




2783 


007702 


000137 


010432 


279M 








2795 








2786 


007706 


105737 


001410 


2787 


007712 


100003 




2788 


007714 


005037 


001410 


278S 








2790 


007720 


000402 




279. 


X7722 


005037 


001412 


279£ 








2793 


007726 


013737 


001426 


279H 








2795 


007734 


010500 




27% 


007736 


116000 


010426 


2797 


007742 


042737 


000017 


2798 


007750 


050037 


001432 


2799 


U07754 


005205 




2800 


007/56 


022705 


000004 


2801 


007762 


001231 




2802 








2803 


007764 


032737 


000001 


280H 


007772 


001415 




2805 


007774 


005237 


00H7« 


2906 


CIQOOC 


00 1002 





T6 

1717M2 41: 
171732 
171722 
171712 

001426 
001422 

001426 

001426 5S: 
6S: 

0014X 



171630 



171572 121: 



71: 



es: 



C05 

30(1046) i4-JUL-77 08:03 PftCE S-* 
WITE PPTTERMS ON THE DISK 



nCV DSKPOR.SPKDA 

nOV BUSflOR.aRKBP 

flOV •-1400.aRKUC 

NOV l3.aRKC5 

riOV PRSP«T,f<XTPflT 

CHP PRSPflT,lPfiT3 

Bt€ 5S 

flOV iPflTO.NXTPftT 

8R bS 

AOO i2,f«TPflT 

JSR PC.GETBUF 

JSR PC.aPCSClBR 

CON. ROY 

BIT 1145000. aRKCS 

8£Q 12$ 

JSR PC,GT4RG 

ERROR 21 

CON. RESET 

INC ERCNTl 



JMP EXTt 

BIT leiTg.aPKOs 

BEQ 7S 
JSR PC,GT4RG 
ERROR 22 
COW. RESET 
DRV. RESET 
INC ERCNT2 
BNE 7S 
JMP tXTb 



TSTB BUFLGO 

BP.. es 

CLR BUFLGO 

BR 9S 

CLR BUFLGl 

NOV NXTPHT,PRSPflT 

NOV R5.R0 

nO\'B SECPTR(RO),RO 

BIC •17.DSKflOR 

BIS RO.ftSKADR 

INC R5 

CMP 14, R5 

BNE 21 

BIT •BITO.INDXI 

BEG US 

IMC INDXl 

BNE .*fe 



;SET RKDfi 



tJRITE T>C 4 SECTORS ON 
DISK 

UHILE THE PftTRNS R BEING k«r^EN 
CO GENERATE T« NXT PflTRNS 
TO 8 WRITTEN 

KEEP GENERATING PRTRNS IN THIS 

URY -PflT0"-"PflTl"-"PflT2"-"PflTr-"PflT 



;G0 GEfCRRTE T»C5E PfiTRNS. 
;(3 X 400) UORDS 

;RNY ERROR' 

IgET RKCS,ER,0S,Dfi 

; ERROR ON DOING mUl 
'CLERR IT 

IflLLOW 12 ERRORS AT HOST 

;IF MORE, EXIT 

I SIN. ON DOING WRITE' 



;SIN ERROR ON DOING WRITE 
; ALLOW 12 ERRORS AT HOST 



FIGURE OUT WHICH BUFFER IS 
AVAILABLE FOR USE 
WAS PREVIOUS DSK-URITE DONE 
USING 8UFR 0' 

YES. aR FLAG INDICATING IT'S 
AVAILABLE NOW 

CLR FLAG INDICATING BUFRi 
IS AVAILABLE NOW 
'PRSPAT'S PATRNS WILL BE USED 
ON NEXT WRITE 

FORM SEC I TO BE USED NXT TIME 
GET SEC I 

MASK SECTOR BITS FROM DSK-ADRES 

FORM NXT 0SK-A0RE5 

DONE WITH 12 SECTRS (3 BLXKS)' 

ON THIS SURFACE' IF NOT. GO 
DO NXT 4 SECTRS 

WHICH SURFACE WAS DONE. 0 OR T 
IF 0. GO DO SURFACE 1 
COUNT I OF TRACKS 



f)-n-OZRKL-£. RKll-WOS DYNflTlIC TES^ 
OZHKLE.Pll 2b-flPR-77 12:27 



DD5 



2907 
ggOB 
29OT 
2810 
2811 

^13 

2815 

2ei& 

2917 
2816 

sen 

282C 

2821 

2822 

2823 

282S 

2825 

2826 

2827 

2828 

282S 

2830 

2831 

2832 

2833 

283S 

2835 

2836 

2837 

2838 

283*3 

28H0 

28M1 

2842 

28M3 

30ue 
ctrtb 

2847 

30110 

ctrvl 
2850 
2851 
2852 
2853 
2854 
2855 
28Sb 
2857 
2856 
2859 
28b0 
28bl 
2862 



010002 
01000b 
010014 

010032 
010040 



Qi004H 
010050 
010052 
OlOObO 
OlOObb 
010070 
010076 
OIQIOS 



010106 
010112 
010116 

010122 
010124 
010126 

010130 
010134 
010136 
010140 
010142 
010144 
010150 



000137 
042737 
062737 



00C137 



010436 
000020 
000040 
007444 
001M74 
000020 
00744H 



Mi4j2 
001432 



001432 



005737 OOIMIO 
100007 

052737 100000 

013737 001406 



000207 
052737 
013737 
0002Q7 



100000 
001404 



X1412 
001446 

001410 
00J446 



01 3700 
013701 
012702 

010120 
005202 
001375 

012702 
005101 
010120 
005202 
001375 
012702 
013701 



00144b 
010164 
17740C 



177400 



177400 
010166 



010154 010120 



010156 
010160 



005202 
001375 



010162 000207 
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T6 HRITE PATTERNS OM THE DISK 



;EXIT IF DOf€ 

;G0 TO 5UR 0. NEX' 



CYLINDER 



JHP TST7 
BIC t20.0SKR0R 
ADD •40,DSKfl0R 
Jff IS 
IIS: INC IfCXl 

BIS I20.0SKR0R 

JMP 1$ iCO, WITE PRTRMS Oh SURFftCE 1 

*GET BUFI 

»THIS ROUTINE FINDS OUT miCH BUFFER (lOeUFO. lOBUFl) OR ONE OF 
*T« TWO BUFFERS SELECTED BY THE USER) TO USE 
«FOR OENERflTING PATTERNS. THEN IT SETS UP fi FLAG INDICATING THAT 
»BUFFER HAS TO BE FILLED UP. THE STARTING ADDRESS OF THE 
•BUFFER IS STORED IN 'BUF •'. 



;G0 BACK M€ 00 URITE 

: COUNT • OF TRACKS 

;SET BIT FOR SUR 1 

;G0, WITE PATRNS ON SURFACE 



GETBUF: TST BUFLGO 
BPL IS 

BIS leiTlS.BUFLGl 
NOV PBUF1,6UFN0 
RTS PC 
IS: BIS IfilTlS.BUf'LGO 
NOV PBUFO.OJFNO 
RTS PC 

♦PTGENO 

iTHIS ROUTINE GENERATES A 766 (3X256) UOROS LONG 
tBUFFER CONTAINING THE FOaOHING PATTERNS 
fFIRST BLXK OF 256 UOROS: 125252 

»SECOrC BLOCK OF 256 UOROS: 052525 (CONPLENENT OF ABOVE) 
iTHIRO BLOCK OF 256 UOROS: 010421 
tYOU CAN USE ANY OTHER PATTERN/S (J ITS COffflEfCNT) 
SNAKING THE CHANGES IN THE 2 LOCATIONS SHOW BELOU. 



;BUFR 0 AVAILABLE FOR USE' 
;YES, BRANCH 

;N0. USE BUFR 1. INDICATE SO. 
|SA<C STARTING ACRES OF BUFRl 

;IfCICATED. USING BUF 0 
;5AVE STARtiNG ACRES OF BUFR 0 
RETURN 



01C164 
01C166 



125252 
010421 



PTGENO: NOV 
NOV 
MOV 

IS: NOV 
INC 
BNE 

NOV 
CON 

2S: NOV 
INC 
BNE 
NOV 
NOV 

31: NOV 

INC 
BNE 

RTS 

PTRNOl: 125252 
PTPN02: 010421 



BUFNO.RO 
PTRNOl.Rl 
1-400, ft2 

R1,(R0)* 

R2 

IS 

•-400,R2 

Rl 

R1,(R0)^ 

R2 

2S 

•-400.R2 
PTRNOS.Rl 

Rl,iRO)+ 

R2 
3S 

PC 



;GET STARTING AORES OF BUFP 
;GET PATIw TO BE GENERATED 
;IN THE FIRST 4C0 UORO BLOCK 

;GErCRATE THE FIRST BLOCK 
;UITH 'PATOr PATRN 
;ALL OONE^ 



;CONPLEnENT 'PATOl' PATAN 
; GENERATE 2ND BLOCK WITH 

PATOl 'S COMPLENENT PATRN 
•ALL DONE' 

;CET PATRN TO BE GENERATED 
;FOR 3RD BLOCK 
GENERATE 3RD BLOCK USING 
;'PAT02' PATRN 

;ALL DONE- 

; RETURN 

: CHANGE THESE LOCATIONS IF 
:YOU UANT ANY OTHER PfiT^ERNS 



•C-ii-OZRKL-E. RKH-RK05 DYfWfllC TEST 
DrRHLE.Pll 2t)-flPfi-77 12:27 



2963 

288H 

2865 

2866 

2867 

2868 

2869 

287C 

2871 

28''2 

2873 

287M 

2875 

2876 

2877 

2878 

2879 

288C 

2881 

2882 

2883 

288S 

2885 

2886 

2887 

2888 

cotri 

28S0 

28<J1 

28S2 

28S3 

2695 
28% 
28<?7 
28Sfl 
289S 
2SQ0 
2901 
2902 
29Ca 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 



010170 


012703 


000001 


Q1017M 


012704 


17777E> 


010200 


013700 


001446 


010204 


012702 


177760 


010210 


010301 




010212 


010120 




010214 


000261 




010216 


006101 




010220 


10337M 




010222 


OOS202 




01022S 


001371 




010226 


012702 


177760 


010232 


010401 




010234 


010120 




010236 


000241 




010240 


006101 




010242 


103774 




010244 


005202 




0102% 


001371 




010250 


012702 


177760 


010254 


010301 




010256 


010120 




010260 


006301 




010262 


103375 




010264 


006202 




010266 


001372 




010270 


000207 





EQ5 

rWCYU 30.1046) i4-JUL-77 08:03 PftGE 5b 
T6 UPITE PATTERNS ON THE DISK 



tPTGENi 

♦THIS ROUTINE CENERftTES ft 7b8 (3X256) WORDS 
♦lOMG buffer containing ThC FOLLOWING PATTERNS: 



«riRST BLOCK-256 WORDS 000001 
« 000003 

* i 77777 



tSECOND BLOCK 

« 

t 

t 

•THIRD CLOCK 

t 

* 

ft 



177776 
177774 

000000 

000001 
000020 

loQGOO 



FILL rs 



FILL O'S 



FLOAT A 1 



:*'BUFNO' CONTAINS THE STARTING ADDRESS OF THE 

;*BUFFER. 



PTGENl; 



IS: 
2S: 



3S: 
4$: 



5S: 
6S: 



NOV 
NOV 
flOV 
MOV 
NOV 
NOV 
SEC 
ROL 
BCC 
INC 
BNE 

NOV 
NOV 
NOV 
CLC 
ROL 
BCS 
INC 
BNE 

NOV 
NOV 
NOV 
ASL 
BCC 
INC 
BNE 
RTS 



•1.R3 

•177776. R4 
BUFNC.RO 
1-20, ft2 
R3,R1 
Rl.CRO)* 

Rl 
2S 
R2 
IS 

•-20, R2 

R4,rI 

Rl.CRO)* 

Rl 
4S 
R2 
3S 

•-20, P2 

R3,r1 

R1,(R0)+ 

Rl 

6S 

R2 

5S 

PC 



: INITIALIZE PATRNS 

:GET STARTING ACRES OF BUF^ 
SET COUNT 
INITIALIZE PATRN 
GENERATE THE FIRST 
BLOCK USING "FILL TS" 



;ALL DONE' 



; INITIALIZE PATRN 
; GENERATE 2ND BLOCK 
; USING -FILL O'S" 



;OONE' 

;SET COUNT 

INITIALIZE PATRN 
: GENERATE THE 3R0 BLOCK 

USING -FLOAT A 1" 



;DONE' 
i RETURN 



•PTGEN2 

♦THIS ROUTINE GENERATES A 768 (3X256) WORDS LONG 
♦BUFFER CONTAINING THE FOLLOWING PATTERNS: 



•C-ll-DZRKw-E. RKU-RKOS OYNflfllC TEST 
DZBKlE.PII 2b-aPH-77 12:27 

2S1«} 

?S2Q 



?5 

2S23 
2S2H 



2S28 
?S2<3 
2SX 

2<932 
2S33 
2S3S 
2S35 
2S36 
2S37 
2S38 
2S3S 
2940 
2941 
2942 
2943 
2944 
2945 

2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
29b0 

2%: 

29&2 
2%3 
2%4 

?5 



2%7 

2%e 

29k9 
297: 
2971 
2972 
2973 
29-4 



010272 0050C1 

010274 0137M 001446 

010300 010120 

010302 105201 

010304 001375 

010306 OOSOOl 

010310 010120 

010312 062701 000400 

010316 103374 

010320 005001 

010322 010120 

010324 062701 000401 

010330 103374 

010332 000207 



FD5 
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16 URITE P»4TTERNS On THE DISK 



FIRST BLOCK-256 MORDS 



000377 



SECOrC BLOCK 



THIRD BLOCK 



OOC 
001000 

177400 

000000 
000401 



COUMT PfiTRN-LOUER BYTE 
0-377 



COUNT PflTRN-HIGHER BYTE 
0-377 



COUNT PflTRN-HICHER & LOWER BY'E 
0-377, 0-377 



177777 

:»'BUFNC- CONTAINS THE STARTING 
Rl 



BUFNO.RO 
Rl, (R6)+ 
Rl 
IS 



PTGEN2: 


CLR 




NOV 


IS: 


NOV 




INC6 




BNE 




CLR 


2S: 


NOV 




AOO 




BCC 




CLR 


3S: 


.lOV 




AOO 




BCC 




RTS 



Rl 

Rl.lRO)* 
•460, Rl 
2S 
Rl 

RK(RO)* 

I401.R1 

3S 

PC 



ADDRESS OF THE BUFFER, 
; INITIALIZE PATRN 



; GENERATE 1ST BLOCK USING 
; USING 'COUNT UP LOUER B^TE* 
:D0NE' 



; GENERATE 2N0 BLOCK 

;USING 'COUNT UP HIGHER BYTE* 

;D0NE' 

; GENERATE 3R0 BLOCK USING 
; 'COUNT UP HIGHER & lOUER BY'E' 
.•ALL DONE' 
; RETURN 



' PTGEN3 

!«THIS ROUTINE GENERATES A 768 (3X256) UORDS LONG 
;*BUFFER CONTAINING THE FOLLOUING PATTERNS: 



;#FIRST BLOCK OF 256 WORDS: 



;*SECOND BLOCK 

;« 
;« 
;♦ 

;*THIRD BLOCK 
:* 
:« 
:* 



177776 
177775 

077777 

000377 
000776 



167356 (CONPLEflENT OF GlC42ii 
FLOAT A 0 



COUNT UP HIGHER BYTE 0-377 
COUNT DOUN LOUER B^TE 377-0 



177400 

#'BUFNO' CONTAINS THE STARTING ADDRESS OF THE BUFFER. 



X-ll-OZRKL-E. RKH-RKOS OYNflHIC TEST 
DZWLE.Pll 2t)-flPR-77 12:27 



GQ5 
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Tb WRITE PATTERNS ON THE DISK 



2S75 



2979 
297S 

2seo 

2<»1 
?%2 

?«: 

298M 

29eb 
2%7 

psae 

2SOT 
29«» 
29S1 
29<32 
2<«3 
2W 
2<J% 
29% 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
300H 
300S 
300b 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3C1S 
301b 
3017 
3Qie 
3Ci9 
302C 
3021 
3022 
3023 

S2'4 

302S 
3C2fc 
302' 
3026 
3029 

2:3: 



01033H 
010J40 
01034M 
010350 
0103S2 

0lO^s■^ 

0103S6 



010360 
010384 
01036b 
010372 
01037M 
010376 
010400 
010H02 



010H04 
OlOSlO 
010412 
010M14 
OlOHlb 
□10M22 
010H24 



01042b 
010427 
010430 
010431 



013700 

005101 
010120 
005202 
001375 



012702 
000261 
012701 
010120 
006101 
103775 
005202 
001370 



012701 
010102 
010120 
060201 
022701 
001373 
00020^ 



006 
003 
Oil 
000 



0014% 
177400 
OlOlbb 



177760 
177776 



000377 
177777 



010432 004737 016772 



PTGEN3: flOV 
rtOV 
MOV 
COM 
MOV 
INC 
BNE 



41: 



71: 
8S: 



9S: 



MOV 
SEC 
MOV 
MOV 
ROL 
BCS 
INC 
BfC 



MOV 
MOV 
MOV 
flOO 
CMP 
BNE 
RTS 



BUFNO.RC 
•-^OO.R2 
PTRNO^.Rl 
Rl 

R1,(R0)+ 

R2 

4J 



1-20, R2 

•17777b, Rl 

Rl,(RO)i- 

Rl 

8S 

R2 

71 



•377.R1 

Rl.R^ 

R1,(R0)* 

R2,R1 

•-l,Rl 

9S 

PC 



;GET PATTERN 

; COMPLEMENT •PflT02* Pfl^RN 
•GENERATE 1ST BLOCK 

:PLL DONE' 

:2ND BLOCK 



;flLL DONE" 
;3RD BLOCK 

; GENERATE 3R0 BLOCK USING 
; 'COUNT DOWN LOWER BYTE* 
■•COUNT UP HIGHER BYTE' 

;fiLL DONE' 
; RETURN 



: SECTOR POINTER TABLE. DATA TRANSFERS ARE DONE IN BLOCKS C3 SECTORS 
IeACH) in the CYCLIC ORDER: 0-2, b-10, 3-5, 11-13, 0-2. AND 50 ON. 
§ECPTR: .BYTE b 

.BYTE 3 

.BYTE 11 

.BYTE 0 



EXTb: JSR 



PC,ABRT 



•:##»♦*»#»##*#*«»##»*»»♦#*»*♦»**»»»*♦«**»♦»**»*»*******♦*»»**♦»» 

jiTEST 7 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 

;*»*#TEST b (WRITING PATTERNS ON DISK) SHOULD BE DONE BEFORE DCINGt»#* 
;**»«THIS TEST.«»* 

»IN THIS TEST THE PATTERNS THAT WERE WRITTEN BEFORE (IN THE 

♦PREVIOUS TEST) ARE READ BACK AND SOFTWARE COMPARED. ^ 

♦WHILE THE SOFTWARE COMPARISON IS TAKING PLACE, AN OVERLAPPING 
t^ITE CHECK' IS DONE FOR THE SAME BLOCK. THt READING 
♦BACK OF EACH BLOCK (4 SECTORS) IS DONE IN THE SAME 
♦MANNER AS DESCRIBED IN THE BEGINNING OF PREVIOUS TEST. ^ , 
♦OVeSaPPING OPERATIONS AND STAGGERING OF BLOCKS ARE DONE IN 
♦A SIMILIAR MANNER 

♦THE FOLLOWING IS A DESCRIPTION OF HOW ERRORS ARE HANDLED. 
♦IF A 'SIN' OR 'HE' OCCURS IT IS REPORTED AND THAT BLOCK ^ 
♦IS SKIPPED. IN THIS STAGE OF TESTING THESE ERRORS SHOULD NO' 
^^NORFIftLL Y OCCUR 

♦IF A CHECKSUM ERROR OCCURS. CONTROL IS TRANSFERRED TC 



3C3: 
3C32 
3C33 
3C3** 
303S 
3Q3b 
3037 
X38 
303^ 
30MC 



HOB 

t'CSERROR'. FIRST T« CSE IS RePQRTEQ. T»€ SECTOP GIVING 
fCSTlS REM) AGAIN. IN ALL 3 TRIES fK. DONE. IF STILL 
»T»€ ERROR f^ISTS THAT SECTOR IS ABORTED AND T« REST 

AND RETRIES 

«ARE DONE AGAIN. 

•»©<T SQFTMARE COffWISOM IS DOME QFTHE DATA THAT UAS 
«ISAD SSckTon OTTINCA QATAmSCOHPARISON 
*T>C RaEVANT irCOCGOOO DATA. BAD DATA. ADDRESS ETC. ) IS 
tSTORED. AFTER T»C UH^ BL6cK HAS BEEN CHICKED. T« DATA 



3043 
3044 
^45 

3046, 
2047 
3046 
3C«9 
305C 
305 i 
3052 
3053 
3054 
3055 
305b 
3057 
3058 
3059 
30bC 
30b i 
3Qba 
30b3 
30b4 
30b5 
30bb 
30b7 
30fa8 
30fa«3 
3g7G 

307c 
3073 
3074 
3C75 
307b 
3077 
3079 
307^ 
308C 
3061 
3082 
3083 
3084 



01043b 
010440 
0104% 
010454 
0104b2 
010470 
01047b 
010S04 
010512 

01051b 
010524 



010532 

giosab 

010542 
010550 
01055b 

Q105b4 
010572 



DlObOb 
OlObH 
0:0fc22 



000004 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
005037 

012737 
013737 



005037 
005037 
012737 
012737 
012737 

013737 
013737 



1777b4 
177773 
177742 
177742 
1777b4 
177742 
177152 
00147b 

001414 
001230 



001504 
001506 
177775 
I7777h 
000003 



001450 
001406 



013737 
012737 
013737 



001450 
176400 
001404 



001510 
00151? 
001514 
00151b 
001520 
001522 
001474 



001424 
001450 



0C1252 
001254 
00125b 

001440 
001442 



OlObOG 012737 l7b40C 001444 



00 i 432 
00143b 
001434 



THEN T« BLOCK I 



AGAIN. IN ALL 



ftUHlLE THE DATA COMPARISON ( SOFTWARE ) IS GOING ON THE 'MRITE 



ftTHAT GAVE UCE . 
*HOTE THAT EVERY 
«A BLOCK GAVE UCE 



IS DONE AGAIN. IN ALL THREE 
Y UCE IS fSWRTEO. iT ALL THE 
CE'S, ALL 4 UILL BE REPORTED i 



WW m ^w w ^ w w - ■ 

:CK OF THE SECTC 
TRIES ARE DONE. 
4 SECTOR OF 
Arc RETRIED. 



;»THE ERROR MESSAGE BE CAREFULLY CO-RELATED AfC EXAfllNED. IT 

:«UILL PROVIDE A DEEP INSIGHT INTO THE PROBLEN. 

t§T7: SCOPE 

nOV •-14.ERCNT3 ; ALLOW 12 ERRORS AT THE MOST 
MOV •-5,fRCNT4 ALLOU 5 ERRORS AT T« MOST 

MOV f-afe.ERCNTS ALLOU 10 ERRORS AT THE MOST 

MOV l-Sb.ERCNTb ; ALLOU 10 ERRORS AT THE MOST 
MOV •-14;eRCNT7 -ALLOU 12 ERRORS AT THE MOST 
MOV l-Sb-ERCNTS ; ALLOU 10 ERRORS AT THE MOST 
MOV f-bSt.INDXl SET COUNT FOR 626 TRACKS 
CLR INDX2 CLR COUNT FOR 4 BLOCKS ON A TRACK 



MOV 
MOV 



BEGIN: CLR 
CLR 
MOV 
MOV 
MOV 

MOV 
MOV 

MOV 

MOV 

MOV 
MCV 



READ: 



vA<a»WWw www w^ 



39 



•PATO.PRSPAT 
0RIVA6,ADRE5 



ERCNTl 
ERCNT2 
•-3,RETRY1 

•-2.RETRY2 
•3,ftETRY3 

AORES.UOSKAO 
PeUFl,U6USA0 

l-1400,UUR0CN 

ADRES.DSKAOR 
I-IWOO.WRDCNT 

PBUFO,BUSflOR 



PDfi&MiN 



:INITLZE PTR TO PATRN GENRTR 
;INITLZE DRVI.ADRES 



IF > 0. MEANS THAT RETRIES 
AFTER CSE OR CSE CHKD 
TRY COUNT FOR CSE 
RETRY COUNT FOR SFTURE MISCMP'N 
RETRY COUNT FOR UCE 

DISK AORES TO URT CHK WITH 

USE THIS BUFR 1 TO WRT CHK 

OR THE BUFR INDICATED BY THE USE" 

URT CHK 1 BL0CK=3SECS=140Q UR05 

DISK AORES TO READ FROM 

1 BLOCK = 3 SECTORS = 1400 URD5 

USE 'lOBUFO' TO READ INTO 

OR THE BUFR INDICATED BY THE JSES 



IQ5 

LUPSIN: CON. RESET 
DRV. RESET 
BR RDAGAIN 



30S3 
309H 
30<35 
30% 
30<57 
30% 
309S 
31X 
3101 
3102 
3103 
3iOS 
3105 
3106 
3107 
3108 
3iO<3 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
312M 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
313M 
3135 
3136 
3137 
3138 
3139 
3iH0 
31M1 
3142 



010632 
01063M 
010636 


I0H415 
104416 
0004C1 






010640 


104415 






010642 
C:0650 
010656 


013777 
013777 
013777 


001H32 
X1M36 
MIMSH 


170614 
170602 
170576 


010664 


012777 


000^05 


170S6M 


010672 
010700 
010706 


013737 
017737 
00M777 


001406 
170520 
170516 


0014% 
00143C 



010712 104421 



010714 
010722 

Q1072M 
010732 
010736 
010740 
010742 
0107% 
010750 
010754 
010760 
010766 

010770 
010776 
011002 
011004 
011006 
OliQlO 
011014 
011016 
011022 

one 
one 

011034 



011040 
0110% 
011050 



032777 
001416 

012737 
004737 
104023 
104415 
005237 
001002 
000137 
000137 
032777 
001417 

012737 
00473/ 
104011 
104415 
104416 
005237 
001002 
000137 
000137 

005737 
001031 
005237 



032777 
X1423 
D12737 



040000 



010640 
016214 



001510 

012170 
011512 
001000 



010632 
016214 



0C1512 

012170 
011512 

001504 

001504 

000002 
010532 



LUP»C: CON. RESET 

ROACAIN: flQV DSKAOR.aRKDfi iREAO FROM THIS DSf-fiDRES 

MOV URDCHT.aRKUC ;THIS • OF WORDS 

j^^Q ^^J5 g^jpp 



170534 
001110 



170464 

001110 



IS: 
NOME: 



IS: 

NOSIN: 



170406 
OOlUO 



nOV BUSAOR.SRKBA 
nOV t405.aRKC5 



nOV PBUFl.BUFNO 

nov 3prspAt,pgsubr 

JSR PC.aPGSUBR 



CON. ROY 



BIT 18^14, aRKCS 

BEQ NOME 

NOV tLUPHE.SLPERR 

JSR pcgetInf 

ERROR 23 

CON. RESET 

INC ERCNT3 

BNE 1$,, 

JflP EXT7 

JNP FINISH 

BIT lBIT9,aRKDS 

BEQ NOSIN 

NOV ILUPSIN.SLPERR 

JSR PCGETINF 

ERROR 11 

CON. RESET 

DRV. RESET 

INC ERCNT4 

BNE IS 

JNP EXT7 

JNP FINISH 

TST ERCNTl 

BNE URTCHK 

INC ERCNTl 



BIT iBITl.aRKER 

BEQ WRTCHK 

MOV IBEGIN.SLPEPR 



-.READ.SSE.GO 

:SET UP STARTING ODRES 

;G0 GENERATE A BUFFER 
:0F 1400 WORDS USING THIS 
jPATRN GENRATR 

:D0NE WITH PATRN GENRTNG. 
jUAIT FOR CNT ROY TO SET 
jcFRON PREVIOUS READ) 

;CNT RDY SET 
;HARD ERRORS 



;HARD ERROR 

; ALLOW 12 ERRORS AT MOST 

;IF flORE, EXIT 

;SIN SET' 
:N0 

;SIN ON READ 

; ALLOW 5 ERRORS AT MOST 
;IF HORE, EXIT 

: CHECKING CSE FOR 1ST TIME 
; NO. BRANCH 

;In6iCATE THAT CSE HAS BEE'^ 
: CHECKED ONCE 

.•CHECK sun EROR" 



rwCYii 

T7 



JOB 



30(l£Wfa) m-JUL-77 08:03 PftCE bl 
READ, SOFTWPRE COflPfWE, URITE CHECK OF THE PATTERNS 



31% 
3147 
31% 
314S 

3153 

Sis'* 

3155 
315b 
3157 
3158 
3159 
31b0 
31bl 
31b2 
31b3 
3lb4 

31b5 
31bb 
31b7 

31b8 

im 

3171 
3172 
3173 
3174 
3175 
3Pb 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3188 
3187 
3188 
318S 
3190 
3191 
3192 
3193 
2194 
3195 
31% 
3197 
2198 




1100 
1104 
1106 
1112 



011220 
01122M 
011232 
011236 
U11244 
0112% 
011250 
0112S4 
0112S6 
011260 
011264 



005237 
001002 
000137 
000137 



016214 

001514 

012170 
011654 



IS: 



J5R 

eS^or 

INC 
8NE 
JHP 

JHP 



013700 
012737 
013701 
012737 
021011 
001402 
000137 
005720 
005721 
005237 
001367 



001404 
I777b4 
00140b 
17b400 



01201b 
001260 



001502 
001260 



COflPAR: MOV 
MOV 
MOV 

nov 

CMPAGAN: CNP 
BEO 



IS: 



011266 035737 OOlSOO 
011272 001420 



JMP 
TST 
TST 
INC 
one 

TST 
BEO 



PC.GETINF 
24 

ERCNT5 
IS 

EXT7 
CSERCR 



011116 


005037 


001506 




URTCHK: 


CLR 


CNLN 1 C 




022737 
00101b 


000003 


00125b 




cnp 

BNE 




011132 
011140 
0111% 


013777 
013777 
013777 


001440 
001444 
001442 


170324 
170312 
17030b 


UChGAIN 


NOV 

nov 
nov 


WUbKHU, •JHKUH 
UUROCN.SRKUC 
UBUSAD,9RKBA 


011154 


012777 


000407 


170274 




NOV 


•407,aRKC5 


011162 


005337 


001256 






DEC 


RETRY3 


Ql 1 Ibb 

011172 


005737 
OOlOfeO 






SFTCnP: 


TST 
B^€ 


ERCNT2 
WCREPT 


011174 


005237 


001506 






INC 


EPCNT2 


011200 


012702 


001266 






nov 


IBUFR,R2 


011204 
011210 


012703 
012704 


001320 
001352 






NOV 

nov 


IBUFR1,R3 
IBUFR2.R4 


011214 


005037 


001500 






CLR 


IN0X3 



PBUFO.RO 

•-14,INDX4 

PBUFl.Rl _ 

i-1406.INfiOR 

(RO),(Al) 

IS 

niSCPIP 
(RO)-^ 
(Rl) + 
INAOR 
CnPAGAM 

INDX3 

UCREPT 



ALLOW 10 ERRORS AT HOS^ 

IF nORE, EXIT 
CO, SERVICE CSE 

CLR FLAG INDICATING SOFTWARE 
COMPARE DONE 
URT CHK DONE BEFORE OR 
IT'S 1ST TIME'^ 

IF DONE, BRANCH OTHERWISE DO r 
WRT CHK FROn THIS DSK-ADRES 
THIS I FO WORDS 
WITH THIS BUFFER 

WRT CHK,GO,SSE 

INDICATE WRT CHK DONE 

ONCE DON'T DO IT AGAIN. OTHERWISE. 
DO IT. INDICATE IT IS DONE. 



iP^HIS IS 1§? THRU i 

WRT CHK WAS DONE ONCE BEFORE 
DO SOFTWARE COMPARISON OF 
THE DATA THAT WAS READ FROM 
THE DISK 

INITL2E PTR TO BUFR STORING 
AORES OF BAD DATA 
STORE EXPCTD DATA STARTING HERE 
STORE RECVD IBRD) DATA 
STARTING HERE 

CLR FLAG INDICATING MISCMPRE 

INITLZE PTR TO 'RECVD DATA' BUFR 
STORE AND REPORT 12 OR LESS DA-'fi ERRORS 
INITLZE PTR TO 'EXPCTD DATA* 8LFP 
SET COUNT 

CORRECT WORD READ FROM DISK" 

BRANCH IF MISCMPRE ERROR 

INCRMNT PTRS 

TO NXT WORDS 

DONE WITH CMPRISON? 

IF NOT, COMPARE THE RES' 

WAS THERE A BAD DATA WORD 
(EVEN AFTR RETRYING) 
NO, BRANCH 



k05 



32Qa 
3203 
3aCH 
320S 

32C7 
3208 
320*3 
3210 
3211 
3212 
J2i3 
321H 
3215 

3217 
3218 
3219 
3220 
3221 
3222 
3223 
322M 
3225 

m 

3226 
322S 
3230 

m 

3233 
323M 
3235 
323b 
3237 
3238 
323S 
32M0 
32M1 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
324<3 
3250 
3251 
3252 
3253 
3254 



31'3S 011274 

8ii; 

011310 
011312 
0il31fe 
011322 
011324 
011330 



012737 OlObOb 001 110 REPMSC: 
00151b 



0C10Q2 
C00137 
005737 
001404 
005237 
000137 



011334 104421 
01133b 022737 



0113% 
011350 
01135? 

iiii 

011374 



011402 
011404 
011412 
011420 



81 

01 
01 
01 



4X 
434 
43b 



011442 
011450 
011452 
01145b 
011454 
011472 
011474 
011500 
011502 
01150b 



011512 
011520 
011522 
Q115X 
011532 



001417 
000401 
104415 
013777 
13777 
13777 
012777 



104421 
012737 
032777 
001410 



1 

005237 
001002 
000137 

032777 
001420 
004737 
012737 
lb3737 
104027 
005237 
0Q10O2 
000137 
000137 



022737 
001404 
0b2737 
000403 
012737 



012170 
00125S 

001254 
OlObOb 



IS: 



NOV 

ERROR 

INC 

8NE 

JHP 

TST 

BEQ 

INC 

JMP 



•RERD.SLPERR 







UCREPT ■ 


CON ROY 


177776 


001254 




CMP 






UJPWCE: 


BEQ 
BR 

COfi.RESE 


001440 


170104 




flOV 


QQ1444 






NOV 


0(5 1442 


170056 




riov 


000407 


170054 




NOV 








CON, ROY 


011350 


001110 


ERUCHK: 


NOV 


040000 


170032 




BIT 








BEQ 


015214 






EmoR 






001520 






INC 








BNE 


012170 






JMP 


000001 


170004 


XHE: 


BIT 








BEQ 


015214 






JSR 


000003 


001202 




NOV 


001255 


001202 




sue 








ERROR 


001522 






INC 








BNE 


012170 






JMP 


012052 




IS: 


JMP 



CNTb 
IS 

EXT7 

RETPY2 

UCREPT 

RETRY2 

RERD 



•-2,RETRY2 

ERUCHK 
LUPUCE+2 

UOSKAD.aRKDR 
UMRDCN.aRKUC 

ubusad!Srkba 

•407,aRKCS 

•lupuce.slperr 

lBITl4,dRKD5 
XHE 



.GETINF 



ERCNT7 
XHE 
EXT7 

iBITO.aRKEP 
FINISH 
PC, GETINF 
I3.SREG10 
REtRY3,SREG10 
27 

ERCNT8 
IS 

EXT7 
UCEROR 



001422 001424 FINISH: 
000002 001424 
001414 001424 IS: 



CMP 
BEQ 
WD 
BR 

MOV 



•PflT3,PR5PRT 
IS 

•2,PRSPflT 
tPRTO.PRSPRT 



13 PAGE 52 

URITE CHECK OF THE PATTERNS 



;DflTft ERROR 

IRLLOU 10 ERRORS AT MOST 
;IF MORE, EXIT 



UAIT FOR CNTRL ROY FROM 
PREVIOUS URT CHK 
IF THERE UftS ft RETRY AFTER HISC 
-OMPfiRISON, DO URT CHK fiGftlN 



URT CHK UITH THIS DSK-RDRES 
THIS I OF UQRDS 
THIS BUS ftORES 



jHfiRD EROR'CFROM URT CHK) 
; NO, BRANCH 

;HE ON URT CHK 

;ALLOU 12 ERRORS AT MOST 

;IF MORE, EXIT 

;URITE CHECK EROR' 



;GET TRY t 

:SAVE IT FOR TYPEOUT 

;URT CHK EROR 

;ALLOU 10 ERRORS AT MOS'^ 

;IF MORE, EXIT 



: THERE UAS NO UCE. DONE 
UITH ALL CHECKING FOR SOFT 

jERORS.ETC. MODIFY PARAMETERS 
TO CHECK NXT BLOCK ON 

•THE DISK 

:FINO OUT THE NXT PATRN GENRATR 
TO USE FOR GENRATINC THE 
BUFR. STORE POINTER TO 

:G£NiVITR ROUTINE IN 'PRSPAT' 
NOTE THER R 4 PAT-GENRATRS 



-RKQS QYhfthlC TEST 



32S5 



3258 

325S 

32bG 

3261 

32b2 

3263 

32fcw 

32f>5 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

327M 

3275 

3276 

3277 

3278 

3279 

32B0 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

328*5 

3290 

32S1 

3292 

3293 

3294 

329S 

32% 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

33C7 

3308 

3309 



011540 
011544 
011550 


0137Q1 
116101 
042737 

USUI J/ 


001476 
(]l042b 
000017 


00 1450 


2% 
3S: 


nov 
novB 

BIC 
BIS 


IN0X2.R1 
SECPTft(Rl),Rl 
•l7.ftDRES 
R1.M)RES 


011562 


005237 


001476 






INC 


INDX2 


011566 
011574 


022737 
001025 


000004 


001476 




CflP 

B^€ 


•4.INDX2 

(aUDnK 


011576 


005037 


001476 




OONTRK: 


CLR 


IN0X5 


011602 
011610 


032737 
001407 


000001 


001474 




BIT 
BEQ 


181 INOXl 

DOSlJRi 


011612 


062737 


000040 


001450 




ADD 


•4C.0DRES 


011620 
011626 


042737 
000403 


000020 


001450 




BIC 
BR 


•20.flDRES 

DONE 


011630 


052737 


000020 


001450 


DOSURl: 


BIS 


120. A0RE5 


011636 
011642 
011644 


005237 
001002 
000137 


001474 
012174 




DONE: 


INC 
BNE 
JflP 


INDXl 
GOBAK 
TSTIO 


011650 


000137 


010532 




GOBAK: 


JHP 


BEGIN 



011654 






011654 


017700 


167604 


011660 


010001 




011662 


032700 


000017 


011666 


□01002 




011670 


i62700 


000004 


011674 


005300 




011676 


020037 


001432 


011702 


001021 




011704 


005237 


001252 


011710 


001021 





;CSER0R 
CSEPOR: 



IS: 



MOV 
NOV 
BIT 
BNE 
SUB 
DEC 

CMP 

BNE 

INC 

BNE 



LC5 

^SE^^^^OFl2^E^ESJp«8i:°^I?rCHl?K OF T« PATTERNS 

PfiTO-PflT 1 -PftT2-PftT3 PfiTO- 

FQRfl SECTR I TO BE USED f€XT 
GET SECTR I 
MftSK SECTR BITS 
FORfl THE fCU DISK-AORES 
FORfl THE NXT BLOCK TO BE 
CHECKED. ^ ^^^^ 

DONE RLL 4 BL0CKS(3 SECS 
EftCH) ON THIS TRACK'' 

;IF NOT, GO BAK & DO THE 
I NXT Bl6CK ON THIS TRACK 

REINITLZE COUNT FOR 
4 BLOCKS ON THIS TRACK 
WHICH SUR TO DO NXT' 0 OR 1 
BRANCH, DO SUR 1 NXT 



;CLP SUR BIT. DO SUR 0 NXT 

:SET SUR BIT, DO SUR I NXT 
;D0NE WITH ALL 626 TRACKS' 



:IF NOT. GO BAR & CHECK 
;THE NXT TRACK 

THIS IS THE ENTRY POINT 
FOR SERVICE ROUTINE FOR CHECK 
sun EROR. CONTROL IS XFERED 
HERE ONCE CSE OCCURS 

GET RKDA AFTER CSE 
SAVE RKDA 

FORM THE ACRES OF THE SECTR 
WHICH GAVE CSE 



3RK0A.R0 
RO.Rl 
•1>.R0 
IS 

•4,R0 

RQ 

RO.DSKADR 
2S 

RETRY! 
3S 



RO CONTAINS OSK-ADRES WHERE 
CSE OCURED 

DID A PREVIOUS RETRY (IF ANY) 

GIVE CSE ON SAME ACRES 

NO, THIS IS A FRESH CSE, BRANCH. 

IF THIS WAS A CSE ON A 

RETRY INCHNT RETRY COUNT. 

BRANCH IF 3 RETRIES HAVEN'T 

BEEN DONE 

GO REPORT CSE 

IF CSE WAS IN THE LAST SECTR OF 
THE 3 SEC BLOCK, GO TO 'WRTCHK' 
OTHERWISE CHECK THE REST OF 
THE SECTORS FOR CSE. 



MO 5 



D-ii-02RKL-E, RKil-RKOS OYN«flIC t£5T 
DZRKLE.Pll 2b-flP«-77 12:27 



3311 


011712 


010102 




3312 


011714 


042702 


177760 


3313 




□01002 




3314 
3315 


□11722 
0117S 


000137 
162702 


011116 
000003 


3316 


011732 


100372 




3317 








3318 


011734 


OIOIX 




331*9 


011736 


012737 


:'''77S 


3320 


011744 


000403 




3321 








3322 


0117% 


012737 


177776 


3323 








332M 








332S 


011754 


010037 


001432 


3326 








3327 


011760 


163700 


001450 


3328 


011764 


005200 




332^ 


011766 


005300 




33X 


011770 


001407 




3331 


011772 


062737 


001000 


3332 


012000 


062737 


000400 


3333 


012006 


000767 




333H 








3335 


012010 


104415 




3336 


012012 


000137 


010642 


3337 








3338 








333^ 








3340 








3341 








3342 








3343 








3344 








3345 








33% 








3347 








3348 


012016 


104421 




3349 








3350 


012020 


032777 


040000 


3351 


012026 


001401 




3352 


012030 


104415 




3353 








3354 


012032 


010022 




3355 








3356 


012034 


012123 




3357 


01203b 


012024 




3356 


012040 


005237 


001500 


335S 








3360 


012044 


005237 


001502 


3361 


012050 


001402 




3362 








3363 


012052 


000137 


011244 


3364 








3365 


012056 


000137 


011274 


3366 









001252 
001252 



001434 
001436 



IftC'i: 30.1046; i4-jyL-77 

REfiO, SOFTUflRE COWPfil 

nOV R1.R2 

BIC •1>7760.R2 
-1: BNE 8S 

JHP HRTCHK 
81: SUB i3.R2 

BPL 71 

6S: flOV Rl.RO 

flOV l-S, RETRY 1 
BR 3S 

21: flOV •-2, RETRY 1 



31: flOV RO.OSKflDR 

sue PORES, RO 

INC RO 

4t: DEC RO 

BEQ 5S 

ADO 11000. BUSADR 

AOO t400,HR0CNT 

BR 4S 



51: 



CON. RESET 

JNP RDRGAIN 



jNISCHP 



mSCMP: CON. ROY 



167430 



BIT IBIT14,SRKCS 
BEQ IS 
CON. RESET 



IS: 



4$: 



NOV 

NOV 
NOV 
INC 

INC 
BEQ 

JHP 

JNP 



R0,(R2)^ 

(R1)+,(R3)+ 
(R0)+,(R4)+ 
INDX3 

INDX4 
4$ 

CMPOGON 
REPNSC 



03 PftGE 64 

, URITE CHECK OF THE PftT TERNS 



ALLOW 2 MORE TRIES FOR 
THE CSE ON SfiNE DISK-ftDRES 

SAVE OSK- ACRES FOR DOING 
THE RETRY-READ 
flOOIFY THE 

BUS AORES & UORD COUNT 
TO BE USE ON RETRY- 
READ 



CLR THE CSE IN RKER 
GO BACK, READ AGAIN 
RETRY 



:THIS IS THE ENTRY POINT 
;FOR SERVICE ROUTINE. FOR 

DATA EROR (NISCOllPAftlSON) 

ON SOFTWARE COMPARISON 

OF DATA READ FROM THE DISK BLOCK 



:WAIT FOR CNTRL ROY FROM 
•PREVIOUS URT CHK 



CLR UCE IN RKER 

BUT STILL DATA EROR ENTER HERE 

STORE rcn AORES UHERE 

DATA EROR OCCURED 

SAVE EXPCTD DATA 

SAVE DATA RECVD (BAD) 

INDICATE niSCNPRISON 

STORE ONLY 12 (DEC) ERORS 
IF 12 ERORS, GO REPORT THEM 

GO BACK & CNPARE THE REST 



'C-ll-DZRKL-E, RKll-RKOS DYMflHIC TEST 
DZRKLE.Pll 2t,-flPR-77 12:27 



NOB 



3367 










3388 










33t>'9 










3370 










3371 










3372 










3373 


0120b2 


005737 


001258 




337M 


Q120bb 


003035 






3375 










337b 










3377 


012070 


012737 


000003 


00125b 


3378 










337S 


01207b 


017700 


187382 




3380 


012102 


010002 






3381 


012104 


042702 


177780 




3382 


012110 


001002 






3383 


012112 


000137 


011512 




3384 


01211b 


182702 


000003 




3385 


012122 


100372 






338b 


012124 


010001 






3387 


01212b 


183700 


001440 




3388 


012132 


010137 


001440 




338<3 


01213b 


005200 






33S0 


012140 


005300 






33S1 


012142 


001407 






33S2 


012144 


082737 


001000 


001442 


33«a 


012152 


082737 


000400 


001444 


33SS 


012180 


000787 






3395 


012182 


104415 






33% 


012164 


000137 


011132 




33<37 










33S8 


012170 


004737 


016772 




339*9 










3M00 










3401 










3402 










3403 










3404 










3405 










340b 










3407 










3408 










3409 










3410 










3411 










3412 










3413 










3414 










3415 










341b 










3417 










3418 










3419 










3420 










3421 










3422 


012174 


000004 







flftCYli 30(1048) 14-JUL-77 08:03 PftCE 65 
T7 REfiO. SOFTU<¥« COMPftRE, WRITE CHECK OF THE PfiTTERNS 



:THIS THE ENTRY POINT FOP 
;EROR SERVICE ON GETTING A 
URITE CHECK EROR. 



UCEROR: TST 
BGT 



NOV 

NOV 

NOV 

BIC 

BNE 

JNP 

SUB 

BPL 

MOV 

SUB 

NOV 

INC 

DEC 

BEQ 

ADD 

ADD 

BR 

CON. 

JNP 



3S 
4$ 
IS 



2S: 



CLRERR: 



EXT7: JSR 



RETRY3 
CLRERR 



•3,RETRY3 

aRKDfl.RO 
R0.R2 
•1?7760,R2 
41 

FINISH 

•3,R2 

3S 

RO.Rl 

UO^KAO.RO 

Rl.UDSKAD 

RO 

RO 

CLRERR 
11000. UBUSAD 
•400,klUR0CN 
2S 

RESET 

UCAGAIN 

PC.ABRT 



;DONE 3 TRIES' 

;IF NOT SKIP, OTHERWISE REPORT 
;W C EROR 

;SET CONT FOR RETRIES 

IF WCE W«S IN THE LftST SECTOR 
OF THE BLXK, NO MORE SECS 
TO CHECK. GO TO 'FINISH' 
IF IT WWN'T LAST SECTOR OF THE 
BLOCK. THEN CHECK REHPINING 
SECTOte. (STARTING FROM THE 
SEC AFTER THE ONE GIVING UCE) 
SAVE DISK ACRES 

;GET SAVED DISK ADRES 



;FORN THE NEW BUS ADRES 
IfORN the new WORD COUNT 



«TEST 10 WRITE. WRITE CHECK ON CYLINDERS 127. 128 

;»THIS test wftlTES 12 UNIQUE PATTERNS (ONE fOR EACH 
♦SECTOR) ON CYLINDERS 127 AND 128. THEN WRITE 
♦CHECK IS DO»C TO SEE IF THEY WER^ WRITTEN 
;#CORRECTLY. IT SHOULD BE NOTED THAT THERE IS 
;»CHANGE IN 'WRITE* CURRENT AT THIS CYLINDER. 
♦PATTERNS ARE RELOCATED ON THE CYLINDERS AFTER EACH 
♦WRITE/WRITE CHECK CYCLE. THUS THE FIRST TIME 
♦PATTERN 'SPl' IS WRITTEN ON SECTOR 0. PATTEWN 'SP2' ON 
♦SECTOR 2^ ETC. AFTER THIS MRITE/WRltE CHECK CYCLE 
i^IS OVER ^»ATTERN 'SP2' IS WRITTEN ON SECTOR 0, PATTERN 
♦:'SP3' ON SECTOR 1 AND SO ON. THIS WRITE/WRITE 
; ♦CHECK. CYCLE IS REPEATED 12 TIMES, THUS 
;^THE LAST WRITE/WRITE CHECK IS DONE USING 
♦PATTERN '5Pi2' ON SECTOR 0. PATTERN 'SPl' IS 
♦WRITTEN ON SECTOR 1. PATTERN •SP2' ON SECTOR 2, 
I^ETC. IF YOU WANT TO WRITE ANY OTHER PATTERNS 
;«FILL IN THE PATTERNS YOU WANT IN LOCATIONS 
'♦'SPl' 'SP2' ...ETC. 
"♦♦♦♦»#4^^^^^^4^*^^^^4iii*^«i*»*^*^^^^*^*****^^*^»»^^^^*»**»**»* 
TSTIO: SCOPE 



BOB 



ff}-ll-02RKL-€. RKll-HWK O'TtpfllC TEST 
02WLE.P11 2fe-flPR-r7 12:2? 



PIftCYll 30U0HfcJ iH-JUL-77 08:03 PAGE bb _ 
TIC <?ITE. *ITE C«CK DM CYlIfCCRS 127, 128 




3H3e 
3433 
3H3N 
3M35 
3H3b 
3H37 
3M3B 
3H3S 
34H0 
34M1 

34M3 

J 1 ~ ■ 

J 1 'J 

34M7 

J 1 lU 

3HMq 

3450 
3H51 
3452 
3453 
3454 
3455 
345fc 
3457 
3458 
3459 
34fe0 
3%1 
34b2 
34fe3 
3%4 

3%5 
34bfc 
3%7 

34fae 

3%'9 
3470 
3471 
3472 
3473 
3474 
3«75 
347b 
34 

3-''e 



Q122S2 
0122% 
01225M 
012260 
012266 
012270 
012276 
012300 
012306 
012312 
012314 
01231b 
012322 
01232H 

012330 
012332 
0123?4 
012340 
012342 
0123% 
012350 
012354 
012356 
012360 
012362 
012366 

012372 
01237b 

012400 
0124O4 
012406 
012412 
012416 



012420 
012422 
012430 
012434 

012440 
2i?442 



012737 
012737 
0)2737 

10201 
012700 
053700 
005003 
104415 



010077 
012777 
010177 
012777 
10M421 
032777 
001414 
012737 
004737 
104021 
104415 
005237 
001002 
0X137 

005200 
005203 
022701 
001002 
012701 
005721 
020327 
002732 
001005 
010201 
0427X 
052700 

020327 
X1321 

032700 
X1405 
012700 
053700 
000707 



177764 
177764 
177723 
012702 

007740 
X12X 



lb721b 
177400 
lb7202 
004003 

140000 

012240 
01bl62 



001504 
012732 

012730 
012700 
000014 



000017 
000020 

OOOOX 



007700 

010000 
001230 



010201 

012737 177775 

012700 010000 

053700 X1230 
005003 

010077 lfc701fc 



001504 
001506 
001510 



167204 
167170 
167160 
001110 



00i«T: 



URLOl: 
URERR: 

MRLO: 



41: 



3S: 



2S: 

URHI: 



001252 



DOUCHK: 



UCHli: 
UCERR: 



nov 

flOV 

nov 
nov 
nov 
nov 

eis 

CLR 
COM. RESET 



•-i4,ERCNTl 
•-lS,ERCnT2 

■7>40.R0 

orivr6,ro 

R3 



nov 
nov 
nov 
nov 

CON. ROY 

BIT 

BEG 

nov 

JSR 
ERROR 



COM. RESET 



RO.aRKDA 

•-Aoo, aRKwc 

RlJRf^BA 

•46o3.aRKcs 
1140000, anKcs 

MS 

m€rr.slperr 
pc.gtmAg 

21 



irc 

BTC 

jnp 

INC 
INC 
CHP 
BMC 

nov 

TST 
CAP 
BLT 
BNE 

nov 

BIC 
BIS 

cnp 

BNE 

BIT 
•FQ 
ri'JV 
BIS 
BR 



nov 
nov 
nov 

BIS 

CLR 

nov 



ERCNTl 
4S 

EXT 10 

RO 
R3 

•SP12,R1 
3S 

•SPl-2,Rl 
(Rl) + 
R3,I14 

2S 

R2.R1 
•20, RO 
R3,l30 

•7700, RO 
DOUCW" 
•lOOOO.RO 
i'WIVRO.RO 

uaol 



R2.R1 

■-5.RETRY1 

tl06O0,R0 

DRIVRO.RO 
R3 

RO.aRKDR 



RLLOU 12 ERRORS RT nOST 
RLLOU 12 ERRORS RT nOST 
RLLOU 15 EmORS AT nOST 
IMITIRLIZE POINTER TO PfiTRN 

:SET UP "YL flORES BITS Cl27> 
:SET UP URIVE • BITS 



;flORES THE DRIVE 
URITE 1 SECTOR 
;USE THIS PRTTERN 
;URITE, GO 

;flMY ERROR' 

SET RORES FOR LOOPING OM ERROR 

GET TKCS. ER. OS. PR 

ERROR OCiURR^D OA DOING R «ITE 

CLEAR THE ERROR 

ALLOU 12 ERRORS OTLY 



;KEEP COUNT _ 
I USE PATTERNS IN A CYCLIC FASHION 

;INCREfCNT POINTERS TO NEXT PATTERN 
DONE SURFACE 0^ 
;N0 

!yES, if CHANGING HEADS 
;SET UP CORRECT ADDRESS ETC. 

:00rC UITH URITING SURFACE P 
;N0, BRANCH 

DONE WITH BOTH CYLINDERS - 127 S 129' 
YES 

MO, DO CYLINDER 128 
:G0 BACK 

; CYLINDERS 127 AND 128 HAVE BEEN 

:URITTEN, NOW DO URITE CHECK 
INITialZE POINTER TO FIRST PATTERN 
; RETRY COUNT 
loo CYLINDER 128 FIRST 

:ADRES THE DRIVE 



•C-ll-DZWa-E. RKU-RkOS OYNflflIC TEST 
DZRW-E.PU »-flPR-77 12:27 



COb 



nflCYll 30(10%) lH-JUL-77 08:03 P«SE b? 

TIO «ITE, miTE OCCK ON CYLIWERS 127. 12B 



3M7S 








167004 


3M80 


012446 


012777 


177400 


3H81 


012454 


010177 


167002 


166770 


34B2 


01»60 


012777 


004007 


3S83 


012466 


104421 








012470 




040000 


166754 


34H5 


032777 


3sab 


012476 


001406 








0125R 


104026 


016214 




3ses 


012SQ6 


005237 


001506 




3490 


012S12 


001507 




166732 


3HS1 


012514 


032777 


000001 


3492 


012522 


001425 






3SS3 


012524 


012737 


012442 


001110 


3SV 


012532 


004737 


016214 




34% 


012536 


013737 


001252 


001202 


34% 


012544 


062737 


000004 


001202 


34S7 


012552 


104027 






J* W 


012554 


005237 


001252 




349«3 


012560 


001330 






3500 


012562 


005237 


001510 




3501 


012566 


001%1 






3502 


012570 


012737 


177775 


001252 


3503 










3504 


012576 


005200 






3505 


012600 


005203 






350b 


012602 


022701 


012730 




3507 


012606 


001002 






350e 


012610 


012701 


012700 




350S 


012614 


□05721 






3510 


012616 


020327 


000014 




3511 


012622 


002711 






3512 


012624 


X1005 






3513 


012626 


010201 






3514 


012630 


042700 


000017 




3515 


012634 


052700 


000020 




351b 










3517 


012640 


020327 


000030 




3518 


012644 


001300 






3519 










3520 


0126% 


032700 


007700 




3521 


012652 


001005 






3522 


012654 


0127M 


007740 




3523 


012660 


0537X 


0012X 




3524 


012664 


000665 






3525 










3526 










3527 


012666 


005722 






3526 


012670 


020227 


012732 




3S2S 


012674 


001420 






3530 


012676 


000137 


012224 




3531 










3532 










3533 










3534 











UCHI: 



IS: 



41: 



3S: 



2S: 

UCLO: 



nov 1-400, amuc 

nOV RIJRKBA 
nov 14607, SRKCS 

CON. ROY 



BIT 
BEQ 

INC 

BEQ 

BIT 

BEQ 

NOV 

JSR 

NOV 

ROC 

ERROR 

INC 

BNE 

INC 

BEQ 

NOV 

INC 
INC 
CNP 
BNE 
NOV 
TST 
CNP 
BLT 
BNE 
NOV 
BIC 
BIS 

CNP 
BNE 

BIT 
BNE 
NOV 
BIS 
BR 



REPEPT: TST 
CNP 
BEQ 
JNP 



•40000, aPKOS 
IS 

PCGETINF 
26 

ERCNT2 
EXT 10 

•BITO.aRKER 
4S 

tUCERR.ILPERR 

pc.getInf 

REtRvi SREGIO 
t4,SRE&10 

27 

RETRYl 
MCERR 
ERCNT3 
EXT 10 
•-3, RETRYl 

RO 
R3 

•SP12,R1 
3S 

•SP1'2.R1 

(Rl)+ 

R3,il4 

UCAl 

2S 

R2.R1 

•1^R0 

t20;R0 

R3.130 
UCAl 

•7700.R0 

REPEftt 

•7740.R0 

0RIVfl6.R0 

UCHIl 



(R2) + 

R2.ISP12+2 

Tstll 
DOURT 



;«ITE C»€CK 1 SECTOR 
:UITH THIS PATTERN 
:kAITE C»CCK. GO 



NO 

>€ ON DOING kAT CHK 
RLLOU 12 ERRORS ONLY 
IF NORE, EXIT 
MCE' 
NO 

SET PORES FOR LOOPING ON ERROR 
GET INFO ON ERROR 

MCE ON DOING URITE CHECK, UlTh 
PATTERN STORED IN Rl 
DO 3 TINES IN ALL 

RLLOU 15 ERRORS Oft.Y 
IF nORE, EXIT 

KEEP TRACK OF DISK-AORES 
Arc COUNT 

USE PATTERNS IN CYCLIC 
FASHION 

INCRENENT POINTER TO NEXT PATTERN 

DONE SURFACE 0^ 

NO 



IF CHANCING HEADS (0-1) 
A0RE5 BITS 



SET CORRECT 



;D0rC WITE CHECKING SURFACE 1' 
•NO, GO BACK 



;DONE BOTH CYLINDERS - 127 

;YES. BRANCH 

;D0 tYLINOER 127 NOW 



128' 



RELOCATE THE PATTERNS ON THE 
CYLINDERS AND DC IT AGAIN 
:EXIT 

THIS TEXT) 



; PATTERNS TO BE USED 



DOb 



■C-.: OrRK^-E. RKli-RKOS OYT#WIC TEST 
DZWCLE Pi: 26-flPR-77 12:27 



tIPCYli X(iO%) lH-JUL-77 08:03 PftGE bS _ 
TiO URITE. MRITE CHECK ON CYLirOERS 127. 128 



3S35 








3S3b 


0I27tJ2 






3S37 


012704 


052525 




3538 


01270b 


111111 




3S3S 


012710 


010421 




3S'<] 


012712 


102041 




35Hi 


012714 


010101 




35H2 


01271b 


040201 




35M3 


012720 


000401 




35 


012722 


Q314b3 




3SM5 


012724 


070707 




35% 


01272b 


007417 




3SH7 


012/X 


041020 




35H8 
3549 


« ^^^^ 

012732 


004737 


01b7/e 


3550 








3551 








355c 








3553 








3554 








3555 








355o 








3557 








3558 








355'J 








35S0 








35t>l 








35b2 








3Sb3 








35t»4 








35b5 








35bb 








35o7 


01273b 


000004 




3588 


Oic740 


QJC777 


nnn t no 


35b4 


01c74b 


OUluOc 




3570 


012750 


000137 


□141Qe 


3571 


012754 


104415 




357? 


UlcTbb 


1 ALlLt t C 

104410 




3573 








35 7M 


0127b0 


012737 


1 ^^^^ 1 

177771 


^^^^ 

3575 








357b 








3577 


01c7bb 


104401 


OlcTTM 


3578 


012772 


000424 




35 








J5aC 


UlJlftM 






3581 


013D44 


104401 


OlJDbc 


3582 


013050 


00Q421 




3583 










mil tu 






3585 


013114 


104401 


013122 


3586 


013120 


000421 




3587 








3588 


Ol31b4 






3589 








3590 


:i3ib4 


012737 


QC1542 



SPi 

SrC 




• t^^u 

• Hunu 


SP3 




. Munu 


SP4 






SP5 






SPb 




.UORO 


SP7 




UORO 


SPB 




.UORO 


SPS 




.MORO 


SPIO: 


.UORO 


SPll: 


.UORO 


SP12: 


.UORO 


EXTIO: 


JSR 



IF YOU ««NT TO WRITE «WY 
OTHER PftTTERfiS, CHftNGE THESE 
ic LXfiTIONS t6 amy PATTERN 
YOU URNT. 



177777 
052525 

iliiii 

010421 
102041 
010101 
040201 
000401 
0314b3 
070707 
007417 
041020 

PC.ABRT 



•»»##»«##*»»*»*»»*»»»»»»»«»»»♦»*»*»**♦»»♦*»»»♦♦♦*♦♦*»♦********♦ 

4tEST 11 SEEK FUNCTION TIMER 

tlN^THIs'^T OF T»C PROGRflH SEEKS ARE TIfCD BETWEEN A PRRTICULfiR S£T 
»0F CYLirOERS^TH IN THE FORHRflO DIRECTION (0-312) ATC REVERSE(312-C . 

"rSHoS!^KNOTED*TWT THE SECTOR COUNTER (IN SKDS) IS USED AS T« REAL 
tTIfCOOCK TO DO T« SEEK TlfllNG. FOR THE TlfCS TO BE RELIABLE, THE 
♦SECTOR COUNTER SHOULD BE ACCURATE WITHIN THE SPECIFICATIONS OF THE 0I5K 
lloo W11 = 40 NILI 5ECS/REV =3.33 riLl SECS/5ECT0R 



t§Tll; 



•SPEED: 

•VARIATION: *'7Q RPN 

" ' - SCOPE 

BIT iSUb.aSUR ;INHIBIT TlflER? 

BNE .*b _ 
JHP PLTGRPH 
CON. RESET 
DRV. RESET 



NOV 1-7, RETRY 1 



::b7I: 



TYPE 
BR 

.ASCI2 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 



; COUNT FOR 7 DIFRNT SEEK TI1E5 
;T0 BE RECORDED 

;;TYPE ASCIZ STRING 
btj iGET OVER THE ASCIZ 

<15><12>/SEEK jM SCALE FACTORED. 01 NlLl SECS 

.b7J ;;TYPE ASCIZ STRING 

tbi IgET over the ASCIZ 

<15><12>'12)/ • 6f seek I OF 



,b5S 
&4S 



SEEK' 



.b9$ ;;TYPE ASCIZ STRING 

teS GET OVER THE ASCIZ 

<15><12>/ SEEKS TINE SEEKS Tin£/<1S><12. 



NOV ISIAD.INADR :INITLZE PTR TO INNER ADRES 



•C-U-DrRKw-E. OKli-RKOS OYNflfllC TEST 
SZRkLE.Pll 2t.-flPR-77 13:27 



nflCYji 3cacHb' 



Til 



EOb 

14-JUL-r7 08:03 



SEEK FUNCTION TIMER 



PACE 



35S1 
3SV 
35<i3 
3594 
3595 
35% 
3597 
3596 
3599 

3bao 

3b0l 
3b02 
3b03 
3bOS 
3b05 
3b06 
3b07 

3bQe 

3b09 
3610 
3bll 
3bl2 
3613 
3614 
3615 
3616 
3617 
3616 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3643 
3641 
3642 

3644 



013172 012737 
0132M 017777 



013206 
013214 

013222 
01322H 

013226 
013232 
013236 
013242 



013250 
013254 
013260 

013262 
013266 
013272 

013274 
013300 
013304 



013310 
013314 
013316 
013320 
013324 

013326 
013330 

013334 
013340 



053777 
012777 
10H421 
10H422 

005037 
012704 
012705 
012737 



013702 
005737 
001005 

017712 
053712 
000404 

017712 
053712 
004737 



005737 
001004 
010324 
005237 
000751 

010325 
005037 

005237 
001343 



001524 001262 

166056 166256 PEPTIH: 

001230 lbb?SG 

000011 166234 



001474 
027026 
027426 

177634 001476 



001464 
001474 



165772 
001230 



165762 
001230 
014776 



001474 
001474 

001474 
00H76 



eEGSK: 



IS: 
2S: 



3S: 



NOV 

NOV 

SIS 
NOV 

CON. ROY 
TST.RHS 



ISOAO.OUTAOR 
90UTA0R,9RKDP 

•ii.aR^cs 



CLR 
NOV 
NOV 

nov 



NOV 
TST 
ONE 

NOV 
615 
8P 

MOV 

eis 

JSR 



TST 
8NE 
MOV 
INC 
BR 

MOV 
CLR 

INC 
6NE 



INDXl 

•BUfR10,R4 
•eUFRll.RS 
•-144,IfClX2 



RKDA,R2 

INOXi 

IS 

SINADR,aR2 
ORIVAO aR2 
2S 

90UTW)R.aR2 
DRIVA0.dR2 

pc.aiilnsEK 



INDXl 
3S 

R3-(R4)+ 

INOXl 

OEGSK 

R3.(R5)+ 

in6xi 

INDX2 
BEQSK 



;INITLZE PTR TO OUTER ftORES 

:POSITION HEfiDS TO OUTER CYLINDER 
; BEFORE STftRTiNG TO TIME 
SET DRIVE • BITS 
iSEEK. GO 
jWfilT FOA CNTftL ROY 
luAIT FOR R/U/S ROY 

; INOXl = 0. GOING IN: OTHERUISE 
-.STORE FHTO SEEK TIMES IN THIS BUFP 
; STORE REVRSE " " 
SET COUNT FOR • OF SEEKS 



: GOING FWO OR REVRSF? 
: REVRSE, BRRTCH 

;FHRO. SET INNER CYL flORES 
I SET 6RIVE • 6IT5 



SET OUTER CYL flORES 

SET DRIVE • BITS 

GO. TIME THE SEEK FROM CYLINDER 

0 to THE OBOVE CYL. RETURN WITH 

R3 CONTAINING THE TIME (MS. SCALE 

FflCTOR= 0.01) REQUIRED FOR THE SEEK 



; STORE TIME TAKEN FOP FRHRO SEEK 
;SET FLAG FOR DOING REVRSE SEEK 
;G0 DO IT 

; STORE TIME TAKEN FOR REVRSE SEEK 
;CLR FLG FOR DOING FRURO SEEK 

; RECORDED 144 SEEK TIMES 
;IF NOT, GO BAK 



AT THIS POINT 100 SEEKS HAVE BEEK PERFORMED BETWEEN TUO 
CYLirCERS (FORWARD & REVERSE DIRECTION). FORWARD SEEK 
TIMES ARE STORED IN TABLE STARTING AT 'BUFRIO' REVERSE 
STARTING AT 'BUFRll*. THE FOLLOWING CODE FINOS OUT THE 
NUMBERS OF TIMES A PARTICULAR 'SEEK TIME* WAS OBTAINED. 
EXAMPLE: OUT OF 100 TIMES THE SEEK WAS DONE BETWEEN 
CYLINDER 0 & LAST. 
70 TIMES IT TOOK 95 MIL I SECS 
20 TIMES IT TOOK 85 MILI SECS 
10 TIMES IT TOOK 100 MILI SECS 

THIS INDICATES HOW CONSISTENT WAS THE SECkING TIME. 
NOTE THAT ONLY 5 DIFFERENT "SEEK TIMES" WILL BE TYPED 
OUT. 

: SORTING ROUTINE 



D-il-DZRKL-E. Rkll-RkOS DrrWHIC TEST 
DrRKLE.Pll 2fe-flPR-77 12:27 



3bM7 






177776 




3bH8 


0133S2 
0133SM 


012705 


0nil62 
XIlb4 


%50 


012737 


(27030 


3b5l 


C13362 


012737 


026526 


001166 


%S2 


013370 


012737 


026606 


001170 


3b53 






001162 




3b5M 


013376 


013700 




3&5S 


013402 


013701 


001164 




IbSb 


013S06 


012702 


177635 




3bS7 


013412 


005003 






3b5e 










3b59 


013414 


021011 






2bUi 


013416 


003404 






3bbl 


013420 


011004 






3kb2 


013422 


011110 






3bi>3 


013424 


010411 






3664 


013426 


00520? 






3665 


013430 


005720 








013432 


005721 






3667 


013434 


005202 






3668 


013436 


001366 






366<3 


013440 


005703 






3670 


013442 


001355 






3671 










3672 


013444 


013700 


001162 




3673 


013450 


013701 


001166 




367H 


013454 


013702 


001170 




367S 


013460 


010204 






3676 


013462 


005024 






3677 


013%4 


0OSO24 






3678 


013466 


005024 






3679 


013470 


005024 






3680 


013472 


005024 






3681 


013474 


012703 


177773 




3682 










3683 


013500 


QllOll 






368H 


013502 


012703 


177634 




3685 


013506 


022011 






3686 


013510 


001411 






3687 










3688 


013512 


005721 






3689 


013514 


016011 


177776 




3690 


013520 


005722 






3691 


013522 


012712 


000001 




3692 


013526 


005203 






3693 


013530 


001404 






369M 


013532 


000765 






3695 










3696 


013534 


005212 






3697 


013536 


005203 






3696 


013540 


001362 






3699 










3700 
37C1 
3732 


013542 


005205 






CI 3544 


0C1415 















MflCYU 
Til 



SORT: 



FOB 

32:1046) lH-JUL-77 08:03 PAGE 
SEEK FUNCTION TINER 



70 



IS: 



2S: 



3S: 



4S: 



51: 
6S: 



NOV 
NOV 
NOV 
MOV 
NOV 

NOV 
NOV 
flOV 
CLR 

CMP 
OLE 
MOV 
MOV 
MOV 
INC 
TST 
TST 
INC 
BNE 
TST 
BNE 

MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 

MOV 
MOV 
CMP 
BEQ 

TST 
MOV 
TST 
MOV 
INC 
BEO 
BR 

INC 
INC 
BNE 

INC 
BEQ 



•-2.R5 

SSjFRiSiri^Gl 

•6UFR4,SR^G2 

•BUFR5,SREG3 

SREGO,RO 
SREGl.Rl 
•-143.R2 
R3 

(R0),(R1) 
31 

(R0),R4 
(Rl).(RO) 
R4.(ftl) 
R3 

(R0) + 

(Rl) + 

R2 

21 

R3 

IS 

SREGO.RO 

SREG2,R1 

SREG3,R2 

R2,R4 

(RH) + 

(R4)+ 

(R4)4 

(R4)> 

(R4)4 

•-5,R3 

(RO).(Rl) 
•-14^, R3 
(R0)*.(R1) 
51 

(Rl) + 

-2(R0),(R1) 

(R2)'> 

II. (R2) 

R3 

6S 

4S 

(R2) 

R3 

4S 

R5 

GOTYPE 



; COUNT FOR FRMRD. REVRSE 
llNTLZE PTR TO 'SEEK TIME' 



INTLZE PTR TO •• OF "I^ES" 

PTR T 'SEEK TIME* 

COUNT FOR 143 ITEMS TO SOR" 



SORT THE ITEMS & PUT THEM 
IN DESCENDING ORDER 
LARGER ITEMS AT TOP OF .IS' 
SMALLER AT THE BOTTOM 



•.SORTED ALL ITEMS' 
I IF NOT LOOP BACK 

;PTR TO 'SEEK TIME' 
;SAVE 'SEEK TIME' HERE 
;SAVE '• OF TIMES' HERE 

;CLR OJT 5 WORDS OF 
;'• OF TIMES' BUFR 



;SAVE ONLY 5 DIFRNT 'SEEK TIMES' 

;FIND OUT THE '• OF TIMES" 
iEACH 'SEEK TIME' UAS 

{OBTAINED 

;5AVE 'SEEK TIME' 
;KEEP OF TIMES' 



;INCRHNT '» OF TIMES' 
ALL DONE- 
llF NOT, GO BAK 

: SORTED BOTH FRWPD. REVRSE 
i'SEEK TIMES'. IF ^'ES GO 



•C-n-OZRKL-E, RKii-RKQS DYTifcllC TEST 
DZRHLE-PU 2fe-flPR-77 12:27 



nftCYll 
TU 



GOb 
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SEEK FljNCTIOH~If€R 



3703 


01354b 


n 1 3717 


370H 


013554 


n 1 1777 

01c737 


3705 


n 1 1CC 3 


n f 1717 


3706 


013570 


01c7j/ 


3707 






3708 


01357b 


UUU677 


J7trJ 






1^ 1 n 
3710 






'^7 1 1 






j7lc 


ui3bau 


1044LI1 


"37 1 T 
Jf^lj 


UlJbUc 


fV^ ! 1 1 1 




01 Jbtn 


1U44U1 


j/lb 


n 1 ic 1 n 
UlJblO 


fwnim 

oouhdj 


lb 






i7\( 


UIjocU 












n 1 ic3n 


n 1 '^7rti*\ 
ulT/JU 


17 art 


LIlJbc4 


nncsnn 


170 1 


Uldbcb 


nncsnc 


1731 

if ex. 


UlJbJU 


UUbcUU 


1731 


n 1 1C13 


UUbcLAJ 


■373U 


ni 1C1U 


UUbcUU 


171C 


n ! 1C1C 
UlJbdb 


n 1 nnuc 


'J73C. 
J'' CD 






1737 

if if 


n ! 1CU3 


t nuun 1 
iUtlUl 


17 3Q 
J/ CD 


n I i£.u<^ 
UXJotb 


mnun i 

JUUIUi 


"5730 






i7in 

J' JU 


n 1 1CC3 
Uldbbc 




171 1 


n 1 1C.C3 

U1J03C 


n I 77n 1 


1713 


n 1 1C.CC. 


UUbcUi 


1711 

if a 


n 1 ICLTI 

UlJboU 


nnc.3n i 


371U 

if Si 


n 1 Tc.f. ? 


UUbcUi 


171C 

if izt 


n I iccu 
ui Joot 


UUbcUl 
UUDCUi 


171t 

if Jo 


Ui JDOO 


1717 

if if 


UXJbru 


mm uL. 
UiUltb 


1710 

if Jo 


ni 1C73 


1 nuu3u 
iU4*1c4 


17 1Q 

if Jl 


n 1 1C7U 
Ul Jb/4 


1 nuun t 
iUi4Ui 


i7un 


ni imn 


nnnunc 


17U 1 

ifnl 






17U3 

ific 


n 1 17 1 u 
Ui J/i4 




J7U1 

ifii 


n ! 17 1 u 


! ruiun 1 
lUMiUl 


1711U 

if 'in 


n 1 1730 


1 nuun 1 


17UC 

ifn 


n 1 173U 

uiif ci 


nnnunu 


17U^ 

J/ to 






17U7 


n » i7it 

Uiif Jo 




17UD 






17UQ 
J< 1l 






37SC 






17C 1 

ifzl 








ni i7it 


ryicnnri 


3753 


013740 


005005 


37SM 


013742 


104401 


3755 


013744 


001213 


37St> 
3757 


0137% 


OibO% 


013752 


Mi424 


2'S8 


213754 


104405 



027426 0011&2 

027430 001164 

026666 001166 

026746 001170 



013612 



165436 



COTYPE: 



::6SI: 



013650 
165402 



::b7l: 



013702 



002101 
013726 



TYPTIPI: 
IS: 



026606 



nov 
fiov 
nov 
nov 

BR 



TYPE 
ICRLF 
TYPE 
BR 

.RSCIZ 



fiov 

RSR 
RSR 
RSR 
ASR 
ASR 

fiov 

TYPOSS 

TYPE 

BR 

.ASCIZ 

nov 
ASR 
PSR 
PSR 
ASR 
ASR 

nov 

TYPOSS 

TYPE 

BR 

.PSCIZ 

TYPE 
TYPE 
BR 

.ASCIZ 



CLR 
CLR 
TYPE 
SCRLF 

nov 

BEO 

TYPOS 



•BUFRll.lREGO 
•BUFRU^LSREGl 
lBUFR6,SR^G2 
•BUFR7.SREG3 



II 



,651 
&4S 

/CYLS:/ 



:IF NOT. INITLZE PTR TO 'SEEK TinE' 

;SAVE 'SEEK TIHE" 
•SAVE 'I OF TirCS' HERE 

;G0 BAK & 00 SORTING FOR REVRSE SEEK TIKES 

;TYPE OUT CYL i'S BETWEEN UHICH SEEK 

juRS TINED. 'OUTRDR* TO 'INAOR' 'IHAOR* TO 'OUTAOR' 

:;TYPE ASCIZ STRING 
;;GET OVER THE fiSCIZ 



SOUTROR.RO 

RO 

RO 

RO 

RO 

RO 

RO,-CSP) 

,671 
&6S 

/-/ 

aiNAOR.Rl 

Rl 

Rl 

Rl 

Rl 

Rl 

R1,-(SP) 
68?' 

<15><12>^ 

,BLNKS9 

^01 

/REVRSE/ 



;GET OUTER CYL I 



TYPE IT OUT IN DECinflL 
;TYPE flSCIZ STRING 
GET OVER THE fiSCIZ 



;GET INNER CYL • 



FRHRO/ 



TYPE IT OUT IN DECinflL 
:TYPE flSCIZ STRING 
GET OVER THE ASCIZ 



;;TYPE ASCIZ STRING 
J; GET OVER THE ASCK 



RO 
R5 



TYPE OUT THE OF SEEKS' & 'SEEK 
TINE* OBTAINED FOR EACH OF THOSE 
SEEKS 



BUFR5(R0),-(SP) 
31 



GET 'I OF SEEKS" IF NONE (O 

SKIP TYPING (FRUftD SEEK) 

GO TYPE OUT DECIKAL '• OF SEEKS* 



::9K.E.Pii ?fe-VP-7r 12:2: 



IfiCYi. 
Til 



HOb 
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SEEK FUNCTION TIMER 



PftuE 72 



37S«9 
37bC 
37b I 
37b2 
37b3 
37bM 
37b5 
3766 
3767 
3766 
376S 
3770 
3771 
3772 
3773 
377M 
3775 
3776 
3777 
3778 
377S 
3780 
3781 
3782 
3783 
378M 
3785 
3786 
3787 
3788 
378S 
3790 
37S1 
3792 
3793 
3794 
3795 
37% 
3797 
3798 
3799 
380C 
3801 
3802 
3803 
380M 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 

25:h 



0137S6 
013760 
013762 
013766 



013770 
01377M 
013776 
014000 
014002 
014006 
014010 
014012 
014014 
014020 
014022 

014024 
014026 
0140X 

014C32 
014034 
014036 

014040 
014042 
0140% 

014050 
014056 
014064 

014070 
014072 
014100 
01410? 



014106 
014114 
014116 
014122 
014124 
014126 

:i4i34 



104401 

002110 
0160% 
104405 



0160% 
001416 
005705 
001402 
104401 
104405 
104401 
002110 
016046 
104405 
000406 

005726 
005205 
000757 

005726 
005705 
Xi004 

005720 
020027 
001 335 

062737 
»737 
?37 
001406 
032777 
001402 
000137 



032777 
X1002 
000137 
104415 
104416 
012737 
012704 



026526 
026746 
002075 
026666 



2$: 



6S: 



000012 

000002 001260 
000002 001262 
001252 

000100 165040 
013200 



3S: 



4S: 



5S: 



TIMDON: 



TYPE 
BLNKS2 
MOV 
TYPOS 



MOV 

BEO 

TST 

BEQ 

TYPE 

TYPDS 

TYPE 

BLNKS2 

MOV 

TYPDS 

BR 

TST 
INC 
BR 

TST 
TST 
BNE 

TST 
CMP 
BNE 

ADD 
ADD 
INC 
BEQ 
BIT 
BEQ 
JMP 



BUFR4iR0- 



BUFR7(R0. 

41 

R5 

6S 

.BLNK13 



BUFR6(R0), 
5S 

(SP)* 

R5 

2S 

CSP)* 
R5 

TinOON 

(RO)* 

R0,tl2 

IS 

t2.INADR 

•g.OUTftOR 

REtRYl 

PLTGRPH 

tSU6.aSUR 

PLTGftPH 

REPTin 



vSP) :GET 'SEEK TIME' FOR EACH OF 
:0F THfiT •• OF SEEKS*. 'GC 
;TYPE OUT IN DECIMAL 

(SP) ;GET •• OF SEEKS' IF NONE .C 
•.SKIP TYPING (HEVRSE SEEK^ 



:TYPE OUT IN DECIMAL 

-(SP) ;GET 'SEEK TIME' S TYPE IT 
;0UT IN DECIMAL 

:P0P STACK 



;P0P STACK 



: INCREMENT PTR TO TABLES 
ALL DONE' 
I IF NOT GO BAK. 

;INCRMNT POINTER TO NEXT 
INNER & OUTER ADRES 
•ALL DONE' 

.•INHIBIT TIMER' FURTHER ' 
;rES, BRANCH 

GO, BACK AND TIME REST 

OF SEEKS 



;PLOT GRAPH OF 'SEEK TIME' V/S 'CYLIOERS SEEKED' 

•PERFORM SEEK FROM CYLINDER 0 TO EVERY OTHER CYLINDER AfC TIME IT. 
lO o?Q T----0 312. NOTE 'SECTOR COUNTER' IS USED AS A READ 
ItIHE CLOtK TO TiftE THERE SEEKS. AFTER OBTAINING THE SEEK TIMES A 
GRAPH IS PLOTTED OF 'SEEK TIME' V/S 'CYLINDER'. 



000040 165024 
015224 



177465 001500 
027026 



;THC THE SEEKS 
PL'GRPH: BIT tSUS.SSUR 
BNE .H 
JMP TST12 
CON. RESET 
DRV. RESET 

MOV •-31.'',INDX3 
MOV •BUFR10,R4 



:SKIP THE GRAPH' 
:YES, BRANCH 

.•PERFORM 313 SEEKS 0-0.0-1,0-312 
: STORE 'SEEK TIME' HERE 



C-li-LZRK^-E. '^KU-RKOS DYNAMIC TEST 
ZRKLE.Pll 2fe-flPR-7? 12:27 



3815 
38ife 
3817 
3818 
3S19 
3822 
3921 
3822 
3823 
3824 
392S 
3826 



382S 
38X 
3831 
3832 
3833 
3834 
3835 

^ 

3838 
383S 
3840 
3841 
3842 
3843 
394M 
3845 
384b 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
385b 
3857 
3858 
385S 
38b0 
38bl 
38b2 
38b3 
38b4 
3865 
386b 
3867 
3868 
3S6<3 
3873 



014140 005037 C01260 



014144 

014152 



013777 
053777 



Ml 260 
00123C 



165312 
lb5304 



014160 004737 014776 



014164 
014166 
014174 

im 

014206 
014214 
014220 



014222 
014222 
014226 

014274 
014274 
014300 

014350 

014350 
014352 
014354 
014356 
014360 
014362 
014364 
014366 
014372 
014374 
014400 
014402 
014404 
014406 
014410 
014412 
014414 
014416 
014420 
014424 

014426 
014430 
014432 
014434 



010324 
042777 
012777 

\m 

062737 
005237 
001351 



104401 
000422 



104401 
000423 



104401 
002103 
005000 
010046 
104424 
005700 
001411 
022700 
003010 
022700 
002412 
104401 
002110 
000404 
104401 
002111 
104401 
002107 
062700 
000754 

104401 
X1213 
104401 
002103 



017777 
000011 



000040 
001500 



014230 
014302 



165270 
165254 



001260 



000144 
000170 



000012 



30 (1046 J 14-JUL-77 
SEEK FUNCTION TIPIER 

CLR INAOR 

tlOV INADR.aRKDft 
BIS ORlVACl.aRKDA 

JSR PC.TIMSEK 



NOV R3.(R4)+ 
BIC 11^777, aRKDfi 
NOV Ill.SRKCS 



lOb 

08:03 



PftGE 73 



;CLR OL fiORES BITS 



THE RIGHT CYLINDER 
THE RIGHT DRIVE 



^^N.RDY 



RUS 



:a0RE 

-.(ml 

:G0 TINE THE SEEK FROM CYL C 
TO THE «0VE CYL. RETURN WI'H 
;R3 CONTfllNING 'SEEK TINE' IN 
;SCfiLE FftCTOR OF 0.0 i 
; STORE "SEEK TINE' 

;5EEK BACK TO CYL 0 FOR 
TINING NXT CYL SEEK 
UftIT FOR CNTRL ROY' 
UAV FOR R/U/S ROY 
FORM NXT CYL flORES 



ADO ■40, INAOR 

INC INDX3 

BNE IS 

;PL0T A GRAPH USING 'SEEK TINES' RECORDED BEFORE 

TYPE ,65$ ;;TYPE ASCI2 STRING 

BR 641 GET OVER THE ASCIZ 

.ASCIZ <15><12><12><12>/X AXIS - SEEK TIME - MI. I SECS/ 

TYPE .671 ;: TYPE ASCIZ STRING 

BR 46S ;;GET OVER THE ASCIZ 

.ASCIZ <15><12>/Y AXIS - CYLINDER SEEKED FROM 0/^5' 12' 



TYPE 

BLNKS7 

CLR 

nov 

TYPDSS 

TST 

BEO 

CMP 

BGT 

CMP 

BLT 

TYPE 

BLNKS2 

BR 

TYPE 

BLNKSl 

TYPE 

BLNKS3 

ADO 

BR 

TYPE 
SCRLF 
TYPE 
BLNKS7 



RO 
RO,- 



(SP) 



RO 
2S 

■144,R0 
41 

il70.R0 
5S 



3S 



M12,R0 
li 



TYPE OUT THE TIME UNITS 
(MILI SECS) FOR THE X-AXIS 
LIKE THIS: 

0 20 30 40 





Pll 2ti-flPR-77 




T I 1 


3871 


0lMM3b 


012700 


177763 


PLTl: 


Ja/c 


014HM2 






\ X • 




0144H2 


104401 








014>4% 


000403 














3877 




0OS20O 






Sa/a 


OlMMfcO 


001370 
















3882 


014%2 


032777 


000020 1&445Q 





014470 001054 



JOB 

MftCYll 3C(i04fa) 14-JUL-77 08:03 
SEEK FUNCTION TIMER 



PAGE 74 



■-15.ro 

RO 
IS 



:TYPE OU" THE X-ftxIS MfiRKEPS 

:;TYPE ftSCIZ STRING 
::GET OVER THE ftSCIZ 



NOV 

TYPE 
BR 

.flSCIZ 

INC 
BNE 

4 IS SET THEN TYPE THE COMPLETE GRftPH. IF NOT TYPE ^HE SMAL^ GPftPH. 



;I— -I— -I— - 



BIT 
BNE 



«SU4,SSUR 
CMPGRP 



TYPE COMPLETE GRAPH' 
YES BRANCH 

IF NOT, TYPE SMALL GRAPH 





014472 








yi4474 


UJc777 


UUuU4Li 




n I iicn3 
Ui43lJC 


Uul4Hb 




jtril 


U14bLr» 


l[j44U» 




TOO 5 

38S2 
^?4 


014506 


001213 














n t Lie 1 n 


UluU4b 








1 nuunc 
ILnMUb 








t nuun 1 






ni uc3n 


UUU4U1 












OOP 1 








JtUc 


n 1 iiC3Li 


n 1 nnn i 
UlUUUl 












3S0^ 


C145X 


016103 


027026 


3S0S 


01MS3S 


004737 


014736 


JSCS 


014540 


022700 


000004 


3907 


014544 


003402 




3S08 


014546 


005200 






014550 


000751 




3910 


014552 


0227X 


000024 


3911 


014556 


003403 




3912 


014560 


062700 


000002 


3913 


014564 


000743 




3914 


014566 


022700 


000310 


3915 


014572 


X3403 




391b 


014574 


062700 


000005 


3917 


014600 


000735 




3918 


014602 


022700 


000312 


3919 


014606 


001403 




3920 


01%10 


062700 


000002 


3921 


01%14 


000727 




3922 


014616 


000137 


015224 


3923 








3924 








3925 








292fe 









SMGRP: 
IS: 



2S: 



3S: 



4S: 



5S: 



BEQ 

TYPE 

SCRLF 



MOV 
TYPOS 
TYPE 
BR 

.ASCIZ 

MOV 

ASL 

MOV 

JSR 

CMP 

BLE 

INC 

BR 

CMP 

BLE 

ADO 

BR 

CMP 

BLE 

ADO 

BR 

CMP 

BEQ 

ADO 

BR 

JHP 



iSuS.SSUR 
5S 



RO,-(SP) 

,65$ 
&4S 

/-/ 



SKIP REST OF GRAPH' 
YES 

IN THIS GRAPH SEEK TIMES ARE 
; PLOTTED ONLY FOR SELECTED 
CYLINDERS (NOT ALL) SHOUN BELOU: 
0.1.2,3.4, 6,8.10.12 JL4, 16. IB, 20. 
;2§,i0,3§,...,i96.1%,M0, 203 

;tYPE THE MARKERS 

;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



;FORM THE ACRES OF 'SEEK TIME" 



;GET THE SEEK TIME 
;G0 PLOT IT 
: PLOTTED OPTO CYL 4' 
YES 



R0,R1 
Rl 

BUFR10(R1),R3 
PC,PLTPT 
•4,R0 
2S 
RO 
IS 

•24, R3 ; PLOTTED OPTO CYL 20' 
3S 

12, RO 
IS 

1310, RO 
4$ 

•5,R0 
IS 

•312, RO 
5S 

•2,R0 
IS 

TST12 



; PLOTTED OPTO CYL 200" 



; PLOTTED ALL CYLS' 



:IF SU 4 IS SET THE COMPLETE GRAPH IS PRINTED OUT. IT GIVES TIMES FOR 
;SEEK5 FROM CYLINDER 0 TO ALL OTHER CYLINDERS (0. 1 ,2.3. . .202) . 



D-H-DZHKL-E. RVll-RKOS DYNflMIC TEST 
3ZRKLE.PU 2t-(*>R-77 12:27 



005000 

012701 177773 

001213 
000412 




3*338 
333«3 
39HC 
39m 
39M2 
3qM3 
39MM 
3gMS 
3S% 
39M7 
3948 
3SM9 
3950 
3951 
3952 
3953 
3954 
3955 
395b 
3957 
3958 
3959 
39fe0 
3%1 
3962 
3%3 
J%4 
3%5 
39b& 
3%7 
39b8 
3%9 
3970 
3971 
3972 
3973 
3974 
397S 
397b 
3977 
3978 
3979 
3960 
3961 
3963 



01%40 

1%' 
01%5£> 
Ql%fcO 
Oi4fcfc2 
014bb6 
014670 
014672 
014674 
01%76 
014700 
014700 
014704 

014710 

014710 
014712 



014716 
014720 
014722 
014724 
014730 
014732 




01473b 
014742 

014744 
0147% 
014750 
014752 
01475b 



000040 
015224 

17/77:^ 



3i: 

005201 
001005 
012701 
010046 
104405 
000402 
104401 
002104 



104401 014706 
000401 



012203 

004737 014736 



104401 
001213 
005200 

022700 000312 
001344 

000137 015224 



162703 000310 
002403 



104401 
002111 
000772 
062703 
002402 



KDb 

flACYli 30(1046) 14-JUL-77 08:03 PftGE 75 
TU SEEK FUNCTION TIMER 



CflPCRP: CLR 
NOV 
flOV 
TYPE 
SCRLF 
BR 



164270 2$: 



3S: 



4$: 
5S: 



6S: 



Ine 
jriP 

inc 

BNE 

NOV 

NOV 

TYPOS 

BR 

TYPE 

BLNKS6 

TYPE 
BR 

.ASCIZ 



NOV 
JSR 



TYPE 
SCRLF 
INC 
CflP 

DTK. 
JflP 



RO 

•-5.R1 
tBU^RlO.R2 



3S 

•SUS.SSUR 
.♦6 

TST12 

Rl 

4S 

•-5,R1 

RO.-(SP) 

5S 



(R2)*.R3 
PC,PLtPT 



RO 

•312,R0 
2S 

TST12 



INITLZE COUNT 

INITL2E COUNT FOR Y-ftXIS MARKER 
INITLZE PTR TO SEEK TIMES 



;SKIP REST OF GRAPH' 

:TYPE OUT Y-PXIS MARKER 'CYL f 
:IF REQUIRED 

:TYPE 'CYL •• ON Y-PXIS 
I (IN DECIMAL) 



;;TYPE ASCIZ STRING 
••GET OVER THE ASCIZ 



;GET SEEK TIME 
;G0 PLOT THE POINT 



;ALL DONE' 

;IF NOT. GO BAK 



PLTPT 

THE ROUTINE IS ENTERED WITH R3 CONTAINING HORIZONTAL AXIS 

COORDINATE- SEEK TIME _ 

PLOT THE ACTUAL TIME ON THE GRAPH. IN KEEPING UITH NORMAL 
CONVENTION A NUMBER LESS THAN HALF THE CELL UIDTH IS 
CONSIDERED AS FALLING UNDER THE PREVIOUS CELL. A NUMBER 
GRWTER THAN OR EQUAL TO ^LF THE CELL UIDTH f ALLS UNDER THE NEX^ 
EX: IF SEEK TIME IS 11.5 MS, IT'S BETU'N^IO i 12. BUT > 11 
HENCE IT UILL BE PLOTTED AS 12 IF SEEK TIME IS ifl.f "S, 
IT'S BETU'N 10 & 12, dUT < 11 HENCE IT WILL BE PLOTTED 
AS 10.0 MS 



000144 



PLTPT: 



7J: 



SUB 
BlT 



•310, R3 
7J 



TYPE 
BLNKSl 

BR PLTPT 
ADD 1144, R3 
BLT 8S 



;FIND OUT HOW MANY BLANKS TO 
INSERT TO PLOT THE POINT 
;NOTE THE FIRST CELL = 0 MS 



tj-*.-OZRKL-E. RKU-RK05 OYNflfllC TEST 
CZRK^E.Pll at>-flPR-77 12:27 

3Se3 0147b0 104M01 

3<)8M 0H7b2 002111 
3S65 

3<i86 014764 

1907 014764 '^401 014772 

3S88 014770 'xJ040l 

3^ 014774 

39S1 0i477M 000207 

39S2 

3<}S3 



nftCYU 30(1046) 



3«j«J7 
3998 
3999 
4000 
4001 

4004 
4005 
4006 

4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
401b 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
402S 
4026 
4027 
4028 
4029 
40X 

4033 
4034 
4035 
4036 

4037 
4038 



014776 
0150GC 
015002 
015006 
015010 
015014 

015016 
015022 



010246 
005003 
013701 
011102 
032702 
001774 

032702 
001771 



001452 
000400 

000010 



015024 
015026 
015032 
015034 
015036 
015040 
015044 



011102 
032702 
001774 
021102 
001372 
032702 
001367 



Til 



8f: 



LOb 

14-JUL-77 08:03 



SEEK FUNCTION TINER 

TYPE 
BLNKSl 



PftGE 76 



::65S: 



TYPE 
BR 

.ASCI2 
RTS 



.651 
&4S 

/X/ 

PC 



;:TYPE fiSCIZ STRING 
;;GET OVER THE flSCIZ 



OUT THE TINE REQUIRED TO SEEK TO THE CYLINDER 



jTIHSEK 

;THjS ROUTItC Fir 

il*»cSuTl8N»»«''sECt0R COUNTER IS USED PS fl REAL TINE CLOCK TO KEEP Tir€. 
: ENTRY: JSR PC.TIHSEK 

RKOfl CONTAINS THE CYLINDER TO BE 5EEKED FROM THE PRESENT POSITION. 
;RETURN: R3 CONTAINS THE SEEK TINE IN NILI 5ECS. SCALE FACTOR = O.C 



000400 
000017 

015046 012777 000011 164402 



015054 104421 



015056 
015060 
015064 
015066 

m 

015076 
015100 
015104 

015106 
015110 



011102 
032702 
001774 
020211 

X102S 
032702 
001764 

011102 
032702 



000400 

000100 
000017 

000400 



TIHSEK: 


NOV 




CLR 




no* 


It: 


MOV 




BIT 




BEQ 




PTT 




BEQ 


21: 


NOV 




BIT 




BEQ 




CMP 




BNE 




BIT 




BNE 




NOV 




CON. ROY 


3S: 


NOV 


BIT 




BEQ 




CMP 








BNE 




BIT 




BEQ 


41: 


MOV 




BIT 



R2,-(SP; 
R3 

RKOS.Rl 
9R1.A2 
1400, R2 
IS 

tBIT3,R2 
II 



aRl.R2 

•406,R2 

2S 

SR1,R2 
2S 

•17, R2 
2S 



lll,3RKCS 



9R1.R2 
1400, R2 
3S 

R2,9R1 
31 

1100. R2 
SKOON 
•17, R2 
3S 

aRl.R2 
•400. R2 



;R3 UILL COUNT REVOLUTIONS OF 

•DISK (FROM INDEX NARK TC INDEX HARK 

;40 HILI SECS FOR EACH REV 

;UAIT FOR SDK 

;UAIT FOR SECTOR 10 SO THAT 
;U CAN START UAITING FOR 
; INDEX, SEC 0 

;UAIT FOR SEC OK 



;UAIT FOR SEC 0, INDEX NARK 
AS SOON AS IT IS SEC 0, ISSUE 
A SEEK & START TIMING 

ISSUE A SEEK. START TIMING 
THE SEC COUNtER 
UflIT FOR CNTRL ROY 

GET RKDS 
UAIT FOR SOK 

INPO CORRECT' 
NO 

R/U/S ROY SET' 

IF YES. BRANCH 

WAIT f6r sec CNTR TC HOVE 

FROM 0 TO 1 



:UAIT FOR SOK 



PC- 11 -OZRKL-E. RK11-RK05 OYTWIIC TEST 
DZRKLE.Pll »-«PR-77 12:27 



MOb 

fIftCYll 30(10M6) 14-JUL-77 08:03 
TU SEEK FUMCTION TIMER 



PfiGE 77 



4CN1 



4045 
40MB 

40sq 

4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 



4059 
40b0 

4oe»i 

40b2 
4083 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4394 



015134 

015136 
015140 

015142 
0151% 
015150 



015152 
015152 
015156 
015160 
015164 
015166 
015170 
015174 

015176 
015202 
015204 
015210 
015212 
015214 



015220 
015222 



015224 
015226 
015232 
015240 
015242 



mi 

001372 



'5:^4',^ 



m 

001364 

005203 
0007% 

032702 
001001 
005203 



012746 
010346 
004737 
012616 
012603 
042702 
060203 

012746 
0103% 
004737 
012616 
012603 
062703 



012602 
000207 



000004 
105237 
123737 
001402 
000137 



000100 
000017 



000017 



000014 
020500 

177760 

000512 
020500 

000245 



5i: 



SKOON: 



BEO 
CHP 
BNE 

1^ 

Bf€ 

INC 
BR 

BIT 
BNE 
INC 



MOV 

nov 

JSR 
MOV 
MOV 
BIC 
POD 

MOV 
MOV 
JSR 
MOV 
MOV 
ADD 



MOV 
RTS 



4S 

R2.api 

41 

|J00,R2 

•17, R2 
41 

R3 
3S 

•17.R2 

skd6n 

R3 



il4,-(5P) 

R3,-(5P) 

PC.atSMULT 

(Sp)+,f5F) 
(SP)H 

•17776C,R^ 
R2,R3 

•512, -'SP) 
R3,-{SP) 
PC!ailMULT 
(Sn + ,(SP) 
(SP)+.R3 
•245, ft3 



(SP)*.R2 
PC 



;if not keep track of sec 
counter. increment r3 at 
every index mark, every 
40 mil! sCcs 
go bak, keep time 

check^ is it index mark -sec 0 

IF NOt, SKIP 

IF YES, INCREMENT COUNT 

;SEEK DONE, SAVE RKD5-SEC COUNTER. 

;;PUT THE MULTIPLER ON THE STACK 
]1pUT THE MULTIPLICAND ON THE STACK 

;;CALL JPt MULTPLY ROUTINE 

;;DISREGARD THE MSB'S 

iiGET THE LSB'S OF THE PRODUCT 
SEEK. TOtflL TIHE=(IN DECIMAL) 

:;PUT THE MULTIPLER ON THE STACK 
•IpUT the MULTIPLICAND ON THE STACK 
;;CALL J ft MULTPLY ROUTINE 
; DISREGARD THE MSB'S 

::GET THE LSB'S OF THE PRODUCE 

ASSU«PT16n that each SECTOR 

TAKES 3.3 MILI SECS. IF THE 

DISK SPEED IS VERY MUCH DIFRNT 

FROM THE SPEC SPEED OF 

1500 RPM (40 MS/REV). THEN 

SEC COUNTER WOULD NOT BE AN 

ACCURATE TIME CLOCK. 

POP R2 8AK 

RETURN 



001223 

001223 001224 
003760 



4tEST 12 END OF PROCRRM 

' T#THIS IS NOT A TEST BUT IS JUST A LINKAGE 

•PROVIDED TO TEST ALL THE DRIVES. 

t§T12: SCOPE 

INCB DRVDON 

BTEOP: CHPB DRVDON, DRIVS 

BEQ .-^6 

JMP NXTDRV 

.SBTTL END OF PASS ROUTINE 
|4lNCREMENT THE PASS NUMBER (IPflSS) 



ft;-il-D2RKL-E, RK11-RK05 DYNflfllC TEST 
DZRKlE.PU 2b-fiPR-77 12:27 



N0& 

HftCYll 30(10%) 14-JUL-77 08:03 PftGE 78 
END OF PASS ROUTINE 



40*37 










;«IF THERES fl 


M0% 










:*IF THERE ISN 


4099 














MlOO 


01S2% 








SEOP: 


SCOPE 


4101 


0152% 


000004 








4102 


015250 


005037 


001102 






CLR 


4103 


015254 


005237 


001100 


001 100 




INC 


4104 


015260 


042737 


100000 




BIC 


4105 


015266 


005327 






SEOPCT: 


DEC 


410b 


015270 


000001 






.UORO 


4107 


015272 


003022 








BGT 


4108 


015274 


012737 








NOV 


4109 


015276 


000001 






JENOCT: 


.UORO 


4110 


015300 


015270 








SEOPCT 


4111 


015302 


104401 


015347 






TYPE 


4112 


015306 


0137% 


001100 






MOV 


4113 


015312 


104405 








TYPDS 


4114 


015314 


104401 


015344 






TYPE 


4115 


015320 


013700 


000042 




SGET42: 


MOV 


41 It) 


015324 


001405 








BEQ 


4117 


015326 


000005 








RESET 


4118 


015330 


004710 






SENOAO: 


JSR 


4119 


015332 


000240 








NOP 


4120 


015334 


000240 








NOP 


4121 


015336 


000240 








NOP 


4122 


015340 








SOORGN: 




4123 


015340 


000137 








JHP 


4124 


015342 


003742 






JRTNAO: 


.UORD 


412S 


015344 


377 


377 


000 


SENULL: 


.BYTE 


4126 


015347 


Q15 


042412 


04211b 


SENOMG: 


.flSCIZ 


4127 


015354 


050040 


051501 


02C123 






4126 


015362 


000043 










4129 















MONITOR CO TO IT 



STSTNM 
SPPS5 

•100000, SPRSS 

(PC)* 

1 

SOOAGN 

(PC)+,a(PC)+ 

.SENOMG 
JP«SS,-(SP) 



ZERO THE TEST NUMBER 
INCREMENT THE PASS NUMBER 
OON'T ALLOU R NEG. NUMBER 
LOOP' 



;;YES 

1 1 RESTORE COUNTER 



TYPE "END PASS 
SAVE SPfiSS FOR TYPEOUT 
,,G0 TYPE—DECIMAL ASCII WITH SIGN 
.JENULL TYPE A NULL CHARACTER 

j|l42.R0 ;GET MONITOR ADDRESS 

tOOAGN ;; BRANCH IF NO MONITOR 

CLEAR THE HORLD 
PC,(RO) ;;G0 TO MONITOR 

SAVE ROOM 
FOR 
ACTll 

a(PC)+ ::RETURN 
ST3 

-K-1.0 :;NULL CHARACTER STRING 

<1§><12)/END PASS 



4131 

H132 
H133 
H13H 
H135 
H136 
H137 
H13B 
413S 
'♦IMC 

H141 
4142 
4143 
41H4 

4145 
414f, 
4147 
4146 

HIHS 015364 

4150 OlSabM 

4151 015366 

4152 015370 

4153 01537M 
415M 015MOO 

4155 015MQ2 

4156 015H£W 

4157 OlSHOS 

4158 015406 
415S 015410 

4160 015M12 

4161 015414 

4162 015H16 

4163 015420 

4164 015422 

4165 015H2M 

4166 015426 

4167 015432 
4166 

4169 015434 

4170 015436 

4171 U5440 

4172 015442 

4173 0154% 
4174 

4175 015450 

4176 015452 

4177 015454 
4178 

4l7<i 
4180 
-H81 
•♦iBi 

-* .S"^ 



0101% 
0102% 

012701 001266 

012702 X1320 
0121% 
104403 

002 

000 
104401 
002107 
0122% 
104402 
104401 
002106 
104401 
X1213 
022711 
001362 



177777 



104401 
001716 
0105% 

042716 160037 
104402 

012602 
012601 
000207 



B07 

fiftCYii 30110%) 14-JUL-77 06:03 
Ere Of PASS ROUTINE 

;Corffion suBROUTircs arc hptclers 



P«CE 79 



ESR15 



.SBTTL tSRlS 



ROUTIfC PSCOffTfllNS T« DISK POORESS FROM WHICH T« 12_ 
^CPOERS iCRE R£PO. Tt€ SECTOR I'S UHICH GAVE BAD »€M)ERS HAVE 
BEEN STORED STRRTInG AT 'BUFR'. THE CORRESPONDING BAD HEADERS 
HAVE BEEN STORED STARTING AT 'BJFRl'. 



THE PRINTOUT LOOKS LIKE 
SECl HDR RECVD 



AA 



AA=€AO SEC I BBBBBB^BAO HEADER 



EXPCTD fCRsXXXm 



TRYIs Y 



ESR15: 



It: 



NOV 

NOV 

NOV 

NOV 

NOV 

TYPOS 

.BYTE 

• BYTE 

TYPE 

BLNKS3 

NOV 

TYPOC 

TYPE 

BLNK54 

TYPE 

SCRLF 

CNP 

BNE 

TYPE 

nSG6 

NOV 

BIC 

TYPOC 

NOV 
NOV 
RTS 



R1,-(SP) 
R2!-(SP) 

•bOfr.ri 

•eUFRl.R2 

(R1)*.-(SP) 

2 
0 



(R2)*,-CSP) 



•177777. (PI) 
IS 



RS,-(SP) 
•1^37. (5P) 



(SP)*,R2 
(SP)*,R1 
PC 



;;PUSH Rl ON STACK 
[PUSH R2 ON STACK 
;kc I'S STORED HERE PREVIOUSLY 
IBAO HORS STORED HERE PRVSLY 

;C0 TYPE OUT BAD SEC ■ (OCTAL ^ 
;OHLY 2 DIGITS 
SUPRES LOG O'S 
;TYPE 3 BLNKS 

:G0 TYPE OUT BAD HEADER 



;ALL BAD SEC I'S TYPO OUT' 
;IF NOT GO BAK 



;TYPE OUT EXPCTD HEADER FOR 

;THAT CYLINDER 

;;POP STACK INTO R2 

;;POP STACK INTO Rl 



.SBTTL ESR13 

THIS^ROUTIHE IS USED WITH 'ERROR 13"' TO TYPEOUT OUT ERROR 
DATA. THE SECTOR fS WHICH CAVE BAD HEAOERS^HAVE^BEEN^STORED 
STARTING AT 'BUFR'. THE CORRESPONDING BAD HEADERS HAVE 
BEEN STORED STARTING AT 'BUFRr. R5 CONTAINS THE EXPECTED 



OlSMSb 
0l5Mfa2 
OlSMtt 

015S00 
01550Q 
015502 
OlSSOb 
015510 
015512 

01551H 
015520 
01552H 
015526 
015530 



0OS737 
104401 
000404 



0050% 
032705 
001401 
00521b 
104402 

104401 
0137% 
00521(> 
104402 
000207 



Ol53b4 
015470 



000020 



002053 
001254 



•C-ll-D2»*l-E. RK11-RK05 DYTlflfllC TEST 
OZRKLE.PU 2b-flP«-77 12:27 



41Bb 
4187 
"^IBB 
4192 
41% 
41S1 
4192 

41S3 
4194 

41% 
41% 

41«j7 
Ml« 

4i«n 

4200 
4201 
4202 
4203 
4204 
4205 
420b 
4207 
4206 
420S 
4210 
4211 
4212 
4213 
4214 
4215 
421b 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
422S 
42X 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4236 
423<3 
424C 



015532 


004737 


015456 


01553b 


004737 


01b320 


015542 


104401 


015550 


0155% 


0004(N 




015560 






015560 


0137% 


00Ub2 


015564 


104403 




015566 


003 




015567 


000 




015570 


104401 


01557b 


015574 


0004CN 




015606 






015606 


0137% 


001 lb4 


015612 


104403 




015614 


003 




015615 


000 




01561b 


000207 





CD7 

flftCYll 30(1046) 14- JUL -77 08:03 PftGE 80 
ESR13 

;«flOeR FOR THAT CYLlrCER. THE TYP£OUT LOOKS LIKE 



SECt f€R RCVD 
M 



EXPCTD WRsXXXXXX 



TRYl: 



ESR13: JSR 
TYPE 



64s : 



IS: 



PC.ESR15 
,b§S 
BR b4S 

.ASCI2 / SURs/ 



:c • 

HEADER 
Y SURsZ 



:;TYPE ASCIZ STRING 
;:GET OVER THE ftSCIZ 



CLR 
BIT 
BEQ 
INC 
TYPOC 



-iSP) 
120. RS 
IS 

(SP) 



;SUR 0 OR IP 



TYPE .nSGl3 
NOV ftETRY2,-(5P) 
INC (SP) 
TYPOC 

RTS PC 
.SBTTL ESR20 

.ccppn 

•SUWOUTIME TO TYPE OUT ERROR ORTR FOR 'ERROR 20'. RT THE TIfC 

OFOfTRYrTRBLE STARTING AT 'BUFR* CONTAINS SECTOR I'S THAT GAVE BAD^ 

\\ifSaS. TaSS at 'BUFRl' CONTAINS BAD NADERS. W CONTAINS EXPECTED 
HeSct FOR T« CYLIWER. 'INAOR' AMD 'OUTAOR' CONTAIN T« CYLINDER 
WORSES BETUEEN UHICH T>C INPLIED SEEK V4AS TRIED. 



ESR20: JSR 
JSR 



ii&5$: 



::b7S: 



TYPE 
BR 

.ASCIZ 

NOV 

TYPCS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

NOV 

TYPOS 

.BYTE 

.BYTE 

RTS 



PC,ESR13 
PC,ERR2 

,b5S 
64S 

/ CYLA=/ 
$HEG0,-(SP) 

3 

0 

,b7$ 

/ CYLBi/ 
SREG1,-(5P> 

3 

0 

PC 



GO TYPE OUT SEC i'S, BAD HDRS 

GET CYL t'S BETUN uAlCH SEEK 

UAS TRIED 

;TYPE ASCIZ STRING 

I GET OVER T»€ ASCIZ 

CO TYPE CYL • FROM WHERE 
SEEK BEGAN 
TYPE 3 DIGITS 
SUPRES LOG O'S 
:TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



TYPE CYL • TO WHICH SEEk 

UAS DONE 

TYPE 3 DIGITS 

SUPRES LOG O'S 

RETURN 



.SBT'L ESR25 



t-ll-OZRKL-E. RKil-WiOS DYNflfllC TES" 
OZRKLE.Pll eb-«PR-77 Ic: 27 





ulSocU 


UlLlclib 




42S3 








11 H 1 


Ulsbce 


n 1 37n3 


no 1 3U. 
UUlcob 


42% 




012703 


001320 


42M7 


015b32 


012704 


001352 








nsnnnn 




ulsoJb 




4ebu 


Ulbb4*i 


UUlU/ b 




4c?bi 


uibb4b 






4dbc 


UlbobU 


UUici J 




4tfbJ 


n 1 CLC3 


1 C.^71 3 

IbJ/lc 


nnt unu 


4rtb 


ulbbbb 


nnc3 1 3 






n 1 cc£.n 


n 1 1 31A£. 












U3CQ 


















ulbbbc 


ILrrtUJ 




4dbi 


ul9be4 


nnu 




Hcbc 


Ulsbob 


rwi 




U3C1 


Ulaobb 


iLTrtUi 








fvtsi n7 




U3CC 








4dbb 


n 1 CC73 


UiC04b 




U3C7 




1 nuuns 




HAH 




1 nuun 1 

iLTttUl 




U3CQ 

4cb'j 


ni CTTBI 


nnsi in 




HcAJ 




ni 3UUC. 






n 1 cTnu 
Ui9' in 








n 1 C7nc 


1 nuun 1 




4C/J 


n 1 C7 1 n 


UUci iU 
















UiC' UU 


nrmunn 




Ul3/ ID 


UCicUU 






ni cTan 
Uis^ cu 






U77Q 
4C/B 




nc37nn 


nnnunn 




ni C73C 


UCCr UU 


nnaunn 

UUC^UU 


4caU 




UUi Jr i 
















UUUoUU 




4CCM 


ni c7% 


UU5JUU 






Ulb/^4U 


UbJ/UU 


nn tucn 










"coo 


n t CTuu 


n 1 nnT' 


fifii 1 7n 

UUi i r U 










4eso 




nnu707 


UiDCCU 




















Q157S4 




QD117H 


42S2 


0157W} 


10HH03 




42S3 


015762 


003 




4294 


0157W 


OOG 




4295 


0l57b4 


104401 




42% 


0l57b8 


002107 




^297 









ESR25 
ESR25: 



If: 



2S: 



3S: 



3Dil04b. 
NOV 

nov 

»iov 
nov 

BIT 
BtC 
TYPE 
SCRIF 

sue 
asn 
nov 



TYPOS 

.BYTE 

.BYTE 

TYPE 

BLf«(S3 

MOV 
TYPOC 
TYPE 
BLNK52 

nov 

TYPOC 

TYPE 

BLNK52 

nov 

CAP 
BLT 
ADD 

cnp 

BTC 

SUAB 

DEC 

ADD 

nov 

J5R 



nov 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BLnK53 



DO,- 

i4-JUL-77 OB 

R2.R5 

IBUFR.R2 

•eUFRl,R3 
13UFR2.R4 

•SU13,aSUR 
41 



PBUFO. (R2) 
(R2) 

CR2),-vSPJ 



4 

0 



(R3)-^,-(SP) 
(R4)*.-(SP) 



1400, RO 
(R2),RQ 
3S 

•400.RC 

•2H0A.R0 

21 

RO 
RQ 

AORES.RO 
R0,IREG3 
PC.BRKOA 

IREG5.-(SPi 

3 
0 



03 PftGE 31 



:SAVE ADRES Of TERfllNfiTOfi 

;INITL7E PTR TO TABLE STORING 
;ACR£S OF BAD DATA 
INITLZE PTR TO 'EXPCTD* DATP. 
;INITL2E PTR TO 'RtCVO' DA'fi 

: INHIBIT TYPE OUT' 
;YES, EXIT 
:TY« CR.LF 

;GET WORD • IN BUFR (0.1.2. . . 

:UHICH UAS BAD. NOTE YOU 
;CAM HAVE THE ACTUAL HEnORY 
ACRES BY ADDING 'lOBUFO* 
:T0 THIS 

;G0 TYPE WORD • THAT UAS BAD 



:2 BLANKS 

;GET EXPCTD DATA 
:G0 TYPE IT 



:GET RECVD DATA (BAD) 
;G0 TYPE IT 



GET THE DISK ADRES FROn 
UHICH THIS (BAD) DATA UAS 
READ 



;R0 CONTAINS THE DISK 
ADRES FROn «ICH THE (BAD> 
I DATA UAS READ 

;G0 BREAK ABOVE DISK ADRES 
I INTO CYLt, SURt. SECt 

;GET THE CYLt 
TYPE IT 
ONLY 3 DIGITS 
NO LEADING O'S 



EQ' 



f)-li-DZRKL-E. RKII-WOS DYNflniC TEST 
D2RKLE.P11 2b-flPR-77 12:27 



nfiCYll 30(10Mb; 
ESR2S 



ln-JlJL-77 08:03 PAGE 92 



42se 

429S 

4300 

4M1 

4302 

4303 

4304 

4305 

430b 

4307 

4306 

430S 

4310 

4311 

4312 

4313 

4314 

4315 

4316) 

4317 

4318 

431S 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

432<3 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

433<9 

4340 

4341 

4342 

4343 

4344 

4345 

43% 

4347 

4348 

434S 

4350 

4351 

•4352 



OiSTTO 0137% 001176 

01577H 104403 

015776 001 

015777 000 

016000 104401 

016002 002106 

016004 0137% 001200 

016010 104H03 

016012 002 

016013 000 

016014 005722 
016016 020205 

016020 001306 

016022 10H401 

016024 002053 

016026 0137% 001254 

016032 062716 000003 

016036 104403 

016040 001 

016041 000 

016042 000207 



IREGb.-(SP) 



nov 

TYPOS 
.BYTE 1 
.BYTE 0 

TYPE 
BLNKS4 



MOV SREC7.-(SP) 
TYPOS 

•BYTE 2 

.BYTE 0 



TST 
CflP 

BNE 

TYPE 

nSG13 

nov 

ADD 
TYPOS 
.BYTE 
-BYTE 



(R2) + 
R2.R5 

II 



RETRY2,-(SP) 
•3,(SP5 

1 
0 



GET SUR I 
TYPE 

1 DIGIT ONLY 



GET SECl 

TYPE 

2 DIGITS 



INCREmT PTR 

TYPED OUT ALL BAD DATA 

INFO' 

IF NOT LUP BAK 

• TRY i:' 
GET RETRY COUNT 
FORM THE RETRY NO. 
TYPE IT OUT 



;IF YES, RETURN 



41: RTS PC 
flESSAGE HMfDLER 
THE MESSAGE HAfCLER IS USED FOR TYPING OUT MESSAGES i DflTfi 
RELATED TO T« MESSAGE. IF SU13 IS SET, THE TYPEOUT IS 
INHIBITED. T« CALL IS: 

MESAGE XX 

XXX IS T« MESSAGE ftfC^ & PROVIDES AN INDEX TO THE 
'ERROR ITEMS TABLE' UHERE THAT MESAGE ITEM 
IS LOCATED. 

THE MESAGE ITEM CONTAINS: 

POINTER TO T« ASCII MESAGE 
POINTER TO THE DATA HEADER 
POINTER TO THE DATA 
TERMINATOR 

THE DATA IS TO BE PRINTED USING THE SUBROUTINE 



IF 



MS 
DH 

DT 
0 

•DT' IS 



INDICATED IN PLACE OF THE TERMINATOR 



016044 032777 020000 163066 

016052 001012 

016054 011637 001116 

016060 162737 000002 001116 

016066 117637 OQQOOO 001114 

016074 004737 017446 

016100 062716 000002 

016104 000002 



nSGE: 



IS: 



BIT iSU13,9SUR 

BNE IS 

MOV (SP).SERRPC 

SUB i2.I£RRPC 

novB a(§p).iiTEfe 

JSR PCai^RRTYP 

ADD 12, (SP) 
RTI 



CALL 



INHIBIT TYPEOUT' 
IF YES. EXIT 
GET AOteS OF 'MESAGE" 
STORE IT 

GET MESAGE I (INDEX TO ITEM TABLE. 

GO TO 'ERRTYP' & TYPE OUT 

INFO 

ADJUST RETURN ADORES 
EXIT 



THIS ROUTINE IS USED FOR TYPING OUT ASCII MESSAGES. 
THE MESSAGE IS TYPED SU13 IS CHECKED & IF SET THE 
•^YPEOUT IS INHIBITED & AN EXIT IS MADE. 
THE CALL FOR THIS ROUTINE IS "TYPMSG". AN ENCODED 



BEFORE 



D-ll-DZRKL-E. RKil-RKOS DYNflfHC TEST 
DirRKLE.Pil 2fc-flPfl-77 12:?7 



43S4 








M3S5 








43Sfc 








H3S7 
H3S8 


QlblOb 


032777 


020000 




aibll4 


001005 




M3b0 


Olbllb 


017537 


AA/v\nn 

00ia}0Q 


43b 1 


Qlbl2S 


104HQ1 






01bl2b 


000000 


000002 


H3b3 


01bl30 


0b271b 


H3b4 








M3b5 


01bl34 


000002 




43b& 








43b' 








43b8 








•43b<3 








4370 








4371 








4372 








4373 


Qlbl3£. 


01774b 


lb3322 


4374 


OlbUt 


042715 


lb0037 


4375 


n ( f 1 Lit 

01bl% 


00b31b 




437b 


OlblSO 


00b31b 




4377 


OlblSS 


0Qb31b 




4378 


01bl54 


00031b 




4379 


Olblbb 


112b37 


QUI It's 


4380 








4381 








4382 








4383 








43BM 








438S 








438b 








4387 








4388 


0lblb2 


n • ^^^^ 

017737 


153270 


438S 


OlblTO 


017737 


153250 


4390 


01bl7b 


n « ^^^^ 

017737 


153250 


43S1 


OlbSOM 


017737 


153254 


4^^ 


01b212 


000207 




It 

439H 








4395 








43% 








4397 








11 

4398 








4399 








4*400 


01b2l4 


004737 


0Iblb2 


4401 


OlbSSO 


0100% 




4402 


01b222 


01014b 






uibcc*f 


ni nsuc 
UlUctb 




440M 


01b22b 


012700 


001202 


4405 


01b232 


013701 


001170 


44Qb 


01b23b 


010102 




■♦H07 


Dlb240 


042702 


177750 




016244 


010240 




-^:<3 


:ifc24fe 


005201 





MACYl, 30 1 1045 >' 
ESR25 



F07 

14- JUw -77 09:03 P«GE 83 



■'RflP INSTRUCTION. 

THE POINTER TO THE ASCII fCSSPGE TO BE TYPED IS LOCATED IN 
UORD FOLLOWING THE "TYPWSC" COLL. 



THE 



TY.nSG: 


BIT 




Brc 




nov 




Tt-PE 


IS: 


0 


2S: 


ADD 




RTI 



•SUI3,3SUP 
2S 

acsPMS 



»2,(SP) 



INHIBIT TYPEOUT' 
YES, EXIT 

GET "OINTER TO ASCII fCSSAGE 
GO TYPE ASCII STRING 

•.ADJUST RETURN ACRES. SKIP OVER 

; POINTER ON RETURN 

;EXIT 



• CT5RC 

I THIS ROUTINE EXTRACTS THE CYLINDER 
IN IREG4. THEN TRANSFERS RKCS 



iTSRG: NOV BRKDA.-CSP) 

BIC 1150037, (SP) 

ASL (SP) 

ASL (SP) 

ASL (SP) 

SUAB (SP) 

nOVB iSP)*.$REG4 



FROfI RKDA AND STORES IT 
ER, OS. DA TO IREGO. SREGl. SREG2. SREG3 
:POsH RKDA ONTO STACk 
NflSK OUT NOf.-CYLlNOERBITS ^ ^ 
SHIFT 8 BITS OF CYL AORES TC LO Bv'E 



;UP STACK 



CT4RG 

THIS ROUTINE TRANSFERS THE CONTENTS OF RKCS. RKER.RKDS 
RKDA TO IREGO. SREGl. SREG2^ iREG3 RESPECTIVELY. tREG'S 
ARE USW FOR tYPiS dUTTHlftE CONTENTS AT THE TIME OF ERPOP 



GT4RG: MOV 
MOV 
MOV 
MOV 
RTS 



aRKCS,SREGO 
aRKER. SREGl 
aRK0S,SREC2 
3RKDA!SREG3 

PC 



GET RKCS 
RKER 
RKDS 
RKDA 

EXIT FROM THIS ROU'^INE 



PPT T NC 

THIS ROUTINE SAVES THE CONTENTS OF RKCS IN IREGO 
RKER IN SREGl. RKDS IN„SREG2. THEN IT BREAKS PKDA 
INTO DRIVE no! CYLINDER •a^SURFACE AND SECTOR 
AND SAVES THEft IN SREG4, JREGS. SREG5, $REG7. 



GETINF: JSR 
BRKDA: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
MOV 
ASR 



PC,GT4RG 

RO,-(SP) 

Rl -(SP) 

R2.-(SP) 

i$ftEG7*2,R0 

$REG3,R1 

R1.R2 

•1>7750,R2 

R2.-(R0) 

PI 



D-ii-Dk'RKL-E. RKll-RKQS DrN«iIC TEST 



17777b 



4410 


Olb250 


006201 


4411 


01S2S2 




4412 gibes'* 

4413 OlSa 


SiSiSi 

UiUiUC 


4414 


01b2bC 


Lrtc' uc 


4415 


01b2t>4 


n 1 roun 


441b gib2^ 

4417 OiStO 


yiUlUC 




Uibc/c 




Liii 1 Q 


UlOC'D 


UiUC~U 


44SJ 


n 1 conn 


fwioni 

UUU«9Ui 


UU3 1 

44dl 


UlboUc 


uTC' Ui 




UlbJUb 






n 1 CI 1 n 
UioJiU 


UiCDUC 


UU3U 


UlbJlc 


nt?<.ni 

UiCoUi 


UU3C 


n t C0 1 u 


m ptnn 
uicbuu 




n 1 to t c 
(JlbJlD 


onnpp? 


UU37 
44c/ 






UU9Q 






UU3Q 












1*1 J 1 












It Jo 






■iUOLL 












1*1JO 












tT JO 






tlj^ 


U 1 b JCU 


Ul J' J' 




n t C09C 


nn47'T7 

UU i» J' 


mi 


UIDOOC 


UAO( «Jr 


4442 


n 1 coun 
Uibo^ 


ni "5707 
Ui J' Ji 




ntcouc 
UibJ^ 




~~~~ 




UU3' Ui 






nnmn7 

UUi >Uf 


44% 


01b35b 




4447 


01b3b2 


n t 0707 
UX J' J' 


444B 


01b370 


n 1 Pf.07 


4449 


015374 




4450 






4451 






4452 






4453 






4454 






4455 






445b 
4457 










4458 






445"? 






44b0 Qlb37b 
MHfei 016402 




44b2 


01b40b 


005704 


4Hb3 


OlbMlO 


001006 


44b4 


016412 


013737 


-»4fc£ 


016420 


0Q5C37 



17740C 
177770 



MAC^li 30a04b; 
e5R25 

tiSR 
ASR 
flSR 
NOV 
BIC 

nov 

ASR 

nov 

BIC 
MOV 
SUAB 
BIC 

nov 
nov 
nov 
nov 

RTS 



G07 

14-JUL-77 08:03 



Rl 
Rl 
Rl 

Rl^ 
•1^7776, R2 

R2,-(R05 
Rl 

R1.R2 
•1^7400, R2 
R2,-(R0) 
Rl 

•177770, Rl 

R1.-(R05 

(S^)*,R2 

(SPH.Rl 

(SP)*.RO 

PC 



PfiGE 94 



ERR2 



.SBTTL ERR2 



001260 001162 
016434 

001162 001164 
001262 001162 
016434 



001162 

001164 001162 
001164 



THIS ROUTINE GETS THE CYLINDER NUHBERS 8ETUEEN UHICH (inPLlEO) SEEK 
UflS DONE. (R4)s:0 INDICATES SEEK FROM 'OUTfiOR' TO 'INAOR' 
fRH)=l INDICATES SEF.K TO 'OUTADR'. ON EXIT SREGO CONTAINS CYL| 
FROM UHICH SEEK UAS INITIATED, SREGl CONTAINS CYL I TO UHICH SEEr UAS 



tRR2: 



IS: 



ERRl 



nov INAOR.SREGO 

JSR PC.GC^L 

nov fR^GO.IREGl 

nov OUTAOft, SREGO 

JSR PC.GCYL 

TST RM 

BEG IS 

nov SREGO, -(SP) 

nov SREGl, SREGO 

nov (SP)+, SREGl 

RTS PC 

.SBTTL ERRl 



GET CYL AORES 
GO GET CYL I FROn IT 
SAVE 

GET CYL AORES 
GO GET CYL • FROM IT 
GOING UHICH UAY? 
•OUTADR' TO 'INAOR*. BRANCH 

■ ' " TO GET 
S 'FROM- 



EXCHANG CYL" 
CORRECT -TO" 



:yl5 



; RETURN 



THIS SUBROUTINE FINDS OUT THE CYLINDER NOS. BETUEEN WHJCH THE SEEK 
IS DONOHE CYLINDER I UHERE THE HEADS UHERE PRIOR TO MOVING. IS 
DEPOSITED IN SREGO. THE CYLINDER « UHERE THE HEADS SHOULD BE AF'EH 
nOVEnENr IS DEPOSITED IN SREGl. R4In5ICATES UHICH DIREC'ION ^"E 
HEADS UEftEMOVING^ IN OR OUT. R5 CONTAINS THE 
DISK ADDRESS (IN OR OUT AS THE CASE nA> BEj. 



001162 
016434 



001162 001164 
QC1162 



ERRl: 



nov 

JSP 
TST 
BNE 

nov 
:lp 



R5, SREGO 
PC.GCYL :G0 
R4 
IS 

SREGO, SREGl 
SREGO 



GE' 



;UAS GOING IN OR 
:OUT 



H07 

11 30.lOHb) m-JUL-77 08:03 PftGE 95 



•♦%6 
•♦%7 

4Sb8 

H%9 

4M70 

4M71 

4M72 

4M73 

MM7M 

4M75 

HHTb 

4M77 

4M78 

4M7«3 

4MB0 

4H81 

4W82 

4M83 

448S 

4MB5 

4486 

4487 

4488 

448'? 

44% 

44*31 

44 qS 

44<33 
4494 
4495 
44% 
4497 
4498 
4499 
'*500 
450J 
4502 
4503 
450H 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 

^11 

4517 
4518 
4519 
4523 
452: 



01b42H 
Qli>42b 
016432 



016434 
Q16436 
016442 

0164% 
016450 
016452 
016454 
016456 
016460 
016%4 
016466 



016470 
016474 
016502 
016510 
016512 
016514 
016520 
016526 
016530 
01653H 
016536 
016540 
016542 
0165% 
016550 
016556 
016560 

016570 
016572 
016576 
0166X 



000207 
005037 
000207 



0100% 
013700 
042700 

006200 
006200 
006200 
006200 
006200 
010037 
012600 
000207 



005037 
013777 
012777 
104421 
000402 
005037 
032777 
001024 
012746 
005216 
M137b 
005726 
005237 
001364 
032777 
001010 
104420 
002027 
104420 
011646 
162716 
104402 
000002 



001164 



IS: 



RTS 
CLR 
RTS 



PC 

SREGl 
PC 



001162 
160037 



001162 



ROUTINE 
iCONTAINEO IN 
GCYL: NOV 
NOV 
BIC 

ASR 
ftSR 
flSR 
flSR 
QSR 
NOV 
NOV 
RTS 



.5BTTL CCYL 



EXTRACTS THE CYLINDER NO. FROfI THE DISK ADDRESS 
'SREGO'. AND THEN STORES IT BACK IN 'IREGO' 
:PUSH RO ONTO STACK 



RO.-(§P) 
IR^GO.RO 
11600^7. RO 

RO 
RO 
RO 
RO 
RO 

RO.SREGO 
(SP)+.RO 
PC 



a BITS i 
IF PRESENT 



; SHIFT CYL BITS RIGHT 
;Bv 5 

: STORE CYL • IN IREGO 
;POP RO FROM STACK 
EXIT 



.SBTTL DRV. RESET - DRIVE RESET ROUTINE 

.5BTTL RESOON - UAIT FOR DRIVE RESET TO BE DONE 

OR RST 

THIS ROUTINE DOES A DRIVE RESET ON THE DRIVE UHOOSE ADDRESS IS IN 
RKDA. MULTIPLE RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED. 
IF THERE IS NO ERROR (R/U/S ROY SETS UITHIN CERTAIN TINE) . THEN 
A NORflflL EXIT IS MADE. IF R/U/S RDY DOES NOT SET ERROR IS ftEPORTS:. 



001174 




DR. RST: 


CLR 


001230 


162762 




NOV 


000015 


162746 




NOV 

CON. RDY 
BR 


001174 




RES. DO: 


CLR 


000100 


162724 


IS: 


BIT 
BNE 


177770 






NOV 
INC 
BNE 
TST 


001174 






INC 
BNE 


020000 


162362 




BIT 
BNE 

TYPMSG 


001733 






"SGlg 
TYPMSG 

MOV 


000002 




2S: 


SUB 

TYPOC 

RTI 



SREG5 

DRIVAD.3RK0A 
llS.aR^CS 

RES. 00+4 
SREG5 
I100,SRKDS 
2$ 

•-10,-(SPl 

(SP) 

.-2 

(SP)* 

SREG5 

IS 

•SU13,3SUR 
2S 



,nSG7 
tSP).-(SP) 
12, (SP) 



; INITIALIZE THE COUNT 
: DRIVE RESET. GO 

;DID R/U/S RDY SET" 

;push count on sp 
;COu:t it DOU 

;POP UP SP 

;IF NOT UAIT 
; WAITED LONG" 



3fe 



■+522 
4523 
M52H 
452S 
H52b 
4527 

4531 
453£ 
4533 
453M 
4535 
453fe 
4537 
4538 
453<3 
4SHC 
M541 
4542 
4543 
4544 
4545 
454b 
4547 
4548 
454*3 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
455*3 
45bQ 
'ISfel 
4582 
45B3 
4564 
45b5 
45bb 
45S7 
45b8 
45bq 
4570 
4571 
4572 
4573 
4574 
4575 
457b 
-1577 



01bbQ2 
OlbblQ 
Olbfclb 
01b&20 
Qlbb24 
01b£>30 
018832 
018838 
0188M0 
018842 
018844 
018850 

OlbbbO 
QlbbbO 
018882 
018888 

018870 
018874 

018708 
018708 
018712 



012777 
012737 
0O0M02 
005037 
105777 
100431 
X5237 
001372 
10MM20 
0017H2 
104401 
000403 



011b4b 
lb2718 
104402 

104401 
000404 



017746 
104402 



000001 182848 
177500 001170 

001170 
182828 

001170 
018652 

000002 
018876 

162544 



CON. RESET - CONTROL RESET ROUTINE 
CON. ROY - kttIT FOR CONTROL READY 



.SSTTc 
.5BTTL 
CON. RESET 

AN INDEX TO THE CONTROL-RESET ROUTINE BELOU. 
THE ROUTirC ISSUES A CONTROL RESET AND UfilTS FOP 
THE 'CNTRL ROY' FLAG TO SE' . WHEN THE FLAG SETS 
AN EXIT IS .%)E OUT OF THE ROUTINE. IF 'CNTRl-ROY" 
DOES NOT IeTUITHIN A CERTAIN TIME AN ERROR MESSAGE 

CNT RDY DIDN'T SET 

PC=XXXXXX RKCS=XXXXXX 

THIS^ROUtlNE IS CALLED THROUGH THE 'TRAP* INSTRUCTION 
USING THE LOWER BYTE AS AN INDEX TO THIS ROUTINE. 
THE TRAP DECODER LOCATED AT 'S^RAP'. 



rRftP 



•CN RDY 

ITHE CM.ROY ROUTINE IS CALLED BY USING CNT. ROY WHICH IS A 

i^KfMMTllofeT^ ?SJM^°Y SIT TO SET AND WHEN V 
■SETS EXITS OUT. IF WITHIN A CERTAIN TIME CNTRL ROY DOCS 
NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/22 
175 MS FOR 11/45 WITH BIPOLAR MEMORY. 



4N.RST: 



CN.RDY: 
IS: 



::65S: 



016714 000002 



::67S: 



2S: 



MOV 
NOV 
BR 
CLR 
TSTB 
BMI 
INC 
BNE 

TYPNSG 
tISGlO 
TYPE 
BR 

.ASCIZ 

MOV 
SUB 
TYPOC 

TYPE 
BR 

.ASCIZ 

MOV 
TYPOC 

RTI 



•l.aRKCS 
•-5U0,SREG3 
CN.RDY+4 
SREG3 
aRKCS 
2S 

SREG3 
IS 



,65S 
&4S 

<15)<12>/PC=/ 

(SP).-(SP) 
•2, (§P) 



,87$ 
&6S 

/ RKCS=/ 
aRKC5,-(SP) 



JSSUE A CONTROL RESET 
:SET UP COUNT 

;SKIP OVER CN.RDY 

DID CNTRL-RDY SET' 

YES. EXIT 

WfiltED LONG' 

IF NOT. GO BAK & WAIT 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



GO TYPE PC IN THE MAIN PROGRAM . 

WHERE ERROR OCCURRED 
;TYPE ASCIZ STRING 

GET OVER THE ASCIZ 



;GET RKCS 
;G0 TYPE IT 

•.RETURN FROM THIS 
: ROUTINE TO THE MAIN 



JOV 



'^HC'il 3C.:5Mfe) IM-JUL-?' 09:0 
CON.W^ - kJAIT FOfi CONTROL READY 
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4590 



459! 

459M 

459S 

45% 

4597 

4598 

4599 

4b00 

4b0i 

4602 

%03 

460M 

4fc05 

460£> 

4b07 

4b08 

4609 

4610 

4611 

4612 

4613 

4614 

%i5 

4616 

4617 

4blS 

4619 

4620 

4621 

4622 

4623 

4t»2M 

4b25 

H62b 

4t»27 

4626 

4629 

4630 

4631 

4632 

^633 



2 16722 
016730 
aib732 
01b736 
01b7MC 
0167% 
01b7S0 
OlbTSM 
01b7b0 
01 b7b2 
01b7bb 
016770 



005037 
a32777 
001017 
005237 

m 

001010 
104420 
104420 
011b4b 
lb271b 
104402 
000002 



0012b4 
000100 

0012b4 

020000 

002027 
001733 

000002 



lb2522 



Ib2l72 



01b772 104401 OOlblb 

01b77b 1137% 001102 

017002 104402 

017004 000207 



017006 

017006 104407 

017010 032777 000400 

0170ib 001053 



lb2122 



001D47 
01 7030 000416 



;PROGRAr 

•SBTTL TST.RWS - WAIT FOR 9/U/S ROY 

TST.RUS 

THIS rOUTINF. WAITS FOR THE R/U/S READY TO ET AMD RETURNS 
TO THE nfilN PROGRAM WHEN IT SETS. IF IT DOES NOT SET 
WITHIN A CERTAIN TINE AN ERROR IS REPORTED. 
WAITING TIME APPROX. 1040 NS FOR 11/20. 209 MS FOR 11/45 



TSTRWS: 
IS: 



2S: 

;AeRT 
ABRT: 



CLR 
BIT 
BNE 
INC 

BNE 

TYPHSG 

TYPMSG 

MOV 

SUB 

TYPOC 

RTI 



TIMER 

•lOO.aRKDS 
2S 

TIMER 

•SlTl3,aSWR 
2$ 

,MSG12 
,HSG7 

(SP).-(SP) 
•2,(§P) 



.SBTTL TEST ABORT ROUTINE 



TYPE 
HOVB 
TYPOC 
RTS 



.HSG3 

iTSTNM.-iSP) 
PC 



; COMMON SUBROUTINES & HANDLERS 
.SBTTL SCOPE HANDLER ROUTINE 

4thIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

»AND LOAD THE TEST NUMBER (ITSTNM) INTO THE DISPLAY REG. (DISPLAY'^rO^ 

»ANO LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY< 15:08> 

»THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

»SU14=1 LOOP ON TEST 

#SW09=i LOOP ON ERROR 

#CALL 

* SCOPE ;:5C0PE=I0T 



SSCOPE: 



gl70|0 032777 040000 Ib21l2 IS: 



CKSUR 

BIT 

BNE 

BIT 
BNE 



•SUB.aSWR 

soveA 

•BIT14,aSWR 
SOVER 



:lttit5TART OF CODE FOR THE XOR t^STERllllM 



; ; TEST FOR CHANGE IN SOFT-SUR 
;UAS SW8 USED TO SELECT 
;A TEST' IF YES. SKIP OVER 
THE REST, U AR^ LOOPING ON 
;;L|gP gN PRESENT TEST' 



ixTSTR: BP 



bS 



: ; IF RUNNING ON THE "XOR" TESTES CHANGE 



4t>38 

ttij 
-♦:.-*-( 

46% 
%47 
4fe48 
4fa4S 
4650 
H651 
4652 
4653 
4654 
4655 
4656 
4657 
4656 
4659 
4660 
4661 
46£>2 
4663 
4664 
4665 
4666 
%67 
4668 
4669 
4670 
4671 
%72 
4673 
467M 
4675 
4676 
4677 
467B 
4679 
4660 
4b6l 
4662 
4663 
4€»8H 
4685 
4666 
4687 
4668 
->b89 



2b 



IC ■'EST 



017044 
017050 
017054 
CI 7056 
017060 
017064 
017066 
017066 
017072 
017074 
017102 
017104 
017112 
017114 
017120 

Q1712M 
017130 
017134 
017140 
017146 
017154 
017160 



017162 
017164 
017170 
017172 
017200 
01720b 
017210 
017214 
017220 

01722H 
017232 
01723M 
017242 

0172HH 
0172S2 



005737 
012637 
002*21 
022626 
012637 
000*407 

10^,737 
001412 
032777 
001404 
013737 

00QM15 
105037 
105237 
011637 
OI1S7 
005037 
112737 
013777 
013716 
000002 



104407 
105237 
001775 
013777 
032777 
Mi402 
104401 
005237 
011b37 

032777 
M140M 
023727 
101044 

lb2737 
117737 



) 17056 
177060 
000004 



000004 



001103 

001000 

XlllO 

001103 
001102 
OOllOb 
XlllO 
001204 
000001 
001102 
00110b 



001103 

001102 
002000 

001206 
001112 
001116 

000004 
001112 



000002 
161640 



000004 



162G36 
001106 



001115 
161766 



161742 
161732 



Ibl'Ob 
00000b 



00111b 
001114 



SCOPE hSndleo roltine 



JUL-77 



rj7 

08:03 



PQGE 68 



rev 

PlOV 
TST 
MOV 
BR 

5$: C»1P 
MOV 
BR 

bS::tlMtEN0 OF 



2S: 



7S: 



4f: 

JSVLftO: 



SOVER: 



TSTB 
BEQ 
BIT 
BEQ 

nov 

BR 

CLRB 
INCB 

nov 
nov 

CLR 
flOVB 

nov 

MOV 
RTI 



aiERPVEC.-(SP) 
•Sl.aiERAvEC 

aii?70bo 

(5P)-»-,atERRVEC 

ssvlaC 

(SP)+, (SP)+ 
(5P)+,3tERRVEC 

cSoE FOR THE XOR 
lERFLG 



SSVLAO 
•BITC" 



r09,9SUR 
41 

}LPERR,5LPflOR 

lOVER 

SERFLG 

JTSTrtl 

(SP),SLPftQR 

(SP)I$LPERR 

SESCAPe 

•l.SERttfiX 

IT^TNM.aOISPLflY 

SLPflOR (SP) 



5S{? ^!?'?!^H^5'8F"T;i^rRR6rv!?'8,> 

SET FOR TIMEOUT 
TIME OUT OH XOR' 
RESTORE THE Z)^OR VECTOR 

CLeSS tH. S^flCK^^TER ft TIME OUT 

RESTORE THE ERROR VECTOR 
:LQQP OH THE PRESENT TES^ 
I'ESTERttlll 

ms Rh ERROR OCCURRED'' 

BR IF MO 

LOOP ON ERROR' 

BR IF NO 

SET LOOP PDORESS TO wftST SCOPE 

ZERO THE ERROR FLftC 
COUNT TEST NUMBERS 

5fly5 S£QPS LOOP ftOORESS 

SAVE ERROR LOOP ADDRESS 

CLEAR THE ESCAPE FROM ERROR ftDDR?55 

ONLY ALLOW OfC(l) ERROR ON NEXT "ES" 

DISPLAY TEST NUMBER 

FUDGE RETURN ADDRESS 

FIXES PS 



SBTTL ERROR HANDLER ROUTINE 



«SU15::1 
«5U13=1 
ftSU10=l 
*SM09=1 
#SU12=1 



»G0 TO ERRTYP ON ERROR 
*NOT FROM SYSMAC 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 

CYCLE ON ERROR TO PREVIOS 'SCOPE' 



STftTEMEN^ 



SERROR: 
7S: 



IS: 



5S: 



CKSUR 

INCB SERFLG 

BEQ 7S 

MOV STSTNM.aDISPLAY 

BIT iSUlO.dSUR 

BEQ IS 

TYPE .SBELL 

INC tERTTL 

MOV (SP),SERRPC 

BIT •SU2,SSUR 

BEQ 5S 

CMP SERTTL.lb 

BHI bS 

sue •2.SERRPC 

MOVB aS^RRPC.SITEMB 



: CHECK FOR SOFTUfiRE SWITCH REGISTER "EQUEST 
;SET THE ERROR FLfiG 
DON'T LET THE FLAG GO TO ZERO 



DROP THE DRIVE' 
SU, NOT SET, SKIP 

nokz THfiN b ERRORS ON THIS DRIVE^ 
YES, DROP THE DRIVE 



LO' 



:R^^£.PU 2t.-APR-77 12:27 
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%94 
4695 
%% 
%S7 

%9e 

M700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
47m 
470S 
4710 
4711 
4712 
4713 
4714 
4715 
471b 
4717 
471B 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 




017300 
017306 
017310 
017314 
017316 
017320 
017322 
0173X 
017332 
017336 
017344 
0173% 
017352 

01 7354 
017360 
017364 
017370 
017374 
017400 
017402 
017H04 
017406 
017410 
017412 
017414 
017420 

017434 
D17434 
017440 
017442 

017446 
017446 
017452 
017454 
017456 
017462 



104401 
023737 
001403 
005777 
100002 
000000 
104407 
032777 
001402 
013716 
032777 
001402 
013716 
000002 

0137% 
162716 
042736 
104401 
0137% 
000241 
006116 
006116 
006116 
006116 
104402 
104401 
000405 



020000 161652 

017446 
001213 

000042 000046 
161624 



OOIUQ 



001226 
000002 
000377 
002064 
001230 



017422 



105337 001224 
022626 

000137 015232 



104401 001213 

010046 

005000 

153700 001114 



001011 



017464 013746 001116 

017470 104402 

017472 104401 

01747M 001733 

017476 0137% 001116 

017502 1Q4402 

017504 000440 

017506 005300 

017510 006300 

017512 006300 



2S: 



010000 161610 3S: 
001106 

001000 161574 



45: 



ERRTYP: 



BIT 



IS? 
TYPE 
CHP 
BEQ 
TST 
BPL 
HALT 
CKSUR 
BIT 
BEQ 

nov 

BIT 
BEQ 
NOV 
RTI 



6S: nov 
SUB 
BIC 
TYPE 
MOV 
CLC 
ROL 
ROL 
ROL 
ROL 
TYPOC 
TYPE 
BR 

65S: .ASCIZ 



IS: 



DECB 

CMP 

JMP 



TYPE 

MOV 

CLR 

BI5B 

BNE 



MOV 

TYPOC 

TYPE 

HSG7 

MOV 

TYPOC 

BR 

OEC 

A5L 

PSL 



lSU13.aSUR 
??,aiERRTYP 

ill-i2,Si46 
.♦10 
SSUR 
3S 



tSU12,aSUR 
.♦6 

SLPftOR.(SP) 

lSU09,dSUR 

41 

JLPERR.tSP) 



0RVPTR,-(5P) 
•2.{SP5 
•3t7,a(SP)+ 
.HSG14 

6RIVfiD,-(SP) 

(SP) 
(SP) 
(SP) 
(SP) 

,65S 
64$ 

/ DROPPED/ 
DRIVS 

(SP)*,(5P)* 
BTEOP 



.SCRLF 

ftO,-(SP) 
RO 

aiSITEMB.RO 
IS 



$ERRPC,-(SP) 



SERRPC,-(SP) 

6S 

RO 
RO 
PO 



ARE UE IN ftCTll PUTO MODE'' V 

YES, H«LT ON ERRCIR 

SURIs (HALT ON ERROR) SET" 

BRANCH IF NOT 

HALT ON ERROR 

CHECK FOR 50FTUARE SUITCH REGISTER REQUEST 



;GET POINTER "'O DRIVE i 

; CLEAR THE DRIVE PRESENT FLAG 

;GET THE DRIVE I 



TYPE IT OUT 
;TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



OECRMNT t OF DRIVS PRESENT 

RESTORE STACK 

EXIT 

; -CARRIAGE RETURN" & LINE FEED- 
SAVE RO 

•PICKUP THE ITEM INDEX 

;IF ITEM NUMBER IS ZERO. JUST 

:TYPE THE PC OF THE ERROR 

SAVE SERRPC FOR TYPEOUT 
; ERROR ADDRESS 

GO TYPE —OCTAL ASCI I (ALL DIGITS) 



GET OUT 

ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



. -:Z»K^-E. 9K11-RK0S DYNrtMlC TEST 
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>4 7ut. 

T / TO 








n I TCI t 
Ui /^S ID 


UoC' Uu 


Mo 










iA<l~U« 






IUtIUI 






nnonfiD 


U7C3 


n 1 7C1U 


1 nultD 1 

IUttUI 




ni Tcun 

Uif 3tU 


nV777 
UOC' / » 




ni 7^4fc 






ni Tccn 

Ui r 3DU 


UlCUJ' 


T / DO 


n 1 7CC14 




47^7 




lUi«Ul 


1 r DO 


ni 7^fji 

Ui ' DOU 


rmnnnn 


~ <^ D~ 




lUi »U1 


1 / tXJ 




UDC' UU 




ni 7^7? 


nfK710 

UU3' lU 


~ f oc 


n 1 71574 


0(11017 

^AJlUl' 




UA r Dr D 


162700 

IDCr \Ai 










Ul ' DUC 


01 innn 

Ul lUUU 




Ul r DUi 


oniooM 




Ul r DiA 


01 2600 

UlCDUU 


DO 


Ul ' D lU 


lU "~U1 


M7(«Q 


Ul f Dl 1 


000207 


MTTD 

~ f 1 u 


Ul r DID 






Ul f DID 


01 3046 

Ul JU lO 


H77? 


□17620 


104402 


477^ 


Ul r pr.t 


005710 

iA^r lU 


M77M 




DO 1770 






104401 


If f 0 


017632 


QD0771 


4777 

1 f / f 


ni7fi3M 


004770 








477P 






47Rn 






147RI 

T f D i 


















47RM 


n 1 7Mr\ 


104401 


47fK 

OD 


n 1 7M? 


001733 

UUl ' 




u 1 • 0 1 » 


013746 


4787 


01 7650 


104402 


47Rfl 
I f 00 


017652 

U 1 ■ DDC 


000755 

UwUr 39 


47B9 






47% 






*» *JL 


0 1 7654 


004737 


if ?b 


017660 


000752 








4794 






4795 






47% 






47«37 






47S8 






4799 


017b62 




4B00 


017662 


104401 


■4801 


017666 


000441 



002122 
017532 



0Gi2l3 

OOHOOO 161372 
017560 



001213 
000002 



000002 



001213 



2S: 
3S: 

4S: 



5S: 
6S: 

7J: 



002110 
000000 



9$: 



001116 



017662 



lOS: 



nov 

BEQ 

TYPE 

.UORD 

TYPE 

BIT 

BNE 

nov 

BEQ 

TYPE 

.UORD 

TYPE 

PDO 

TST 

BNE 

SUB 

NOV 
BNE 

nov 

TYPE 
RTS 

nov 

TYPOC 

TST 

BEQ 

TYPE 

BR 

JSR 



TYPE 

nSG7 

MOV 

TYPX 

BR 



JSR 
BR 



liERRTB^RO 

(R0)-*',2S 

3S 



.SCRLF 

lisuii.asuR 
10s 

(RO)*,HS 
5S 

0 

, SCRLF 
•2.R0 

(rO; 

9$ 

12. RO 

(R0),R0 
7S 

(SP)+.RO 
.JCRL^ 

a(RO)+,-(SP) 

(RO) 
6S 

.BLNKS2 
PC,3(R0) 



JERRPC,-(SP) 
6S 



PCDMPREG 
6S 



FORn TABLE POINTER 
PICKUP "ERROR NESSAGE" POINTER 
SKIP TYPEOUT IF NOT POINTER 
TYPE THE -ERROR HESSAGE" 
-CARRIAGE RETURN- & LifC FEED- 
PICKUP -DRTfi HEflOER- POINTER 
DUMP OUT ALL RK REGISTERS 
YES, BRANCH 

PIC*:UP -DATA HEADER- POINTER 
SKIP TYPEOUT IF 0 
TYPE THE "DATA HEADER" 
-DATA HEADER" POINTER GOES HERE 
"CARRIAGE RETURN" & LINE FEED" 
FORH POINTER TO TERWNATOR 
IS THE TERHINATOR 0' 
IF NOT. BRANCH 

YES. it IS 0. REPOINT TO "DATA- 
GO TYPE OUT DATA AS USUAL 
PICKUP "DATA TABLE" POINTER 
GO TYPE THE DATA 
RESTORE RO 

"CARRIAGE RETURN" & LINE FEED- 
RETURN 

;SAVE a(RO)+ FOR TYPEOUT 
GO TYPE— OCTAL ASCI I (ALL DIGITS) 
IS THERE ANOTHER NUMBER' 
BR IF NO 



GO TO THE SPECIAL ERROR 
DATA HANDLING SUBROUTINE 
NOTE THAT THIS ROUTINE IS 
THE ONE INDICATED IN THE 
LAST UORD OF AN ERROR 
ITEM IN THE ERROR TABLE 
(STARTING AT lERRTB) 



:G0 BACK^ TO THE EXIT POINT 
I FOR 'ERftTYP' 



IdSpsW ALL RK REGISTERS UHEN SU 11 IS SET 



017670 



DMPREG: 



TYPE 



,651 



;:TYPE ASCIZ STRING 
!;GET OVER THE ASCIZ 



rC-ll-D2RKL-€. RKll-RKOS DYNPMIC TEST 
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(SO' 



08:03 PAGE 91 



H805 OlTTTb 




480S 

4810 

4811 

4812 

4813 

4814 

4815 

481b 

4817 

4818 

481'? 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

482S 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

483S 

4840 

4B4i 

4842 

4843 

4844 

4845 

48% 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 



020012 
020014 
Mb 



020026 
020030 
020032 



020034 
020034 
020036 
020040 
020042 
020044 
0200% 
020052 
02Q056 
020060 
020062 
020070 
020072 
020076 
020102 
020104 
020UO 
020112 
020114 
020116 
020120 
020122 
02012M 
020126 
020130 



0137% X1116 
104402 

104401 002110 

oi?9o8 001452 

0130% 

104402 

104401 002110 
020027 001466 
003771 
012600 
000207 



IS: 



5S: .RSCIZ 

«Cv 
TYPOC 
TYPE 
flOV 
MOV 
MOV 
TYPOC 
TYPE 

cnp 

BLE 

nov 

RTS 



<15><12>/ PC 
$ERRPC,-(SP) 

•mOS.RO 

a(RO)+,-(SP) 

.BLNKS2 

Ao.tRKDB 

1$ 

(SPH,Rn 
PC 



RK05 



RKER 



RKCS RKUC RKBA RKDO PKDB^' 



.5BTTL CONVERT BINARY TO DECINAL AND TYPE ROUTINE 

4tHIS ROUTIfC IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DICIT 
»SIGfCD DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
^NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN UILL BE TYPED 
«BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS UILL ALWAYS BE 
»REPLACED WITH SPACES. 
»CALL: 

» MOV NUM,-(SP) 

* TYPOS 



;;PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 



010046 
0101% 
0102% 
0103% 
010546 

0127% 020200 
016605 000020 
100004 
005405 

112766 000055 000001 
005000 

012703 020250 
112723 000040 
005002 

016001 020240 

160105 

002402 

005202 

000774 

060105 

005702 

001002 

105716 

100407 



STYPDS: 



IS: 



2S: 
3S: 



4S: 



MOV RO,-(SP) 

MOV Rl -(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R5.-(SP) 

MOV 120200, -(SP) 

MOV 20(SP),R5 

BPL 1$ 

NEQ R5 

MOVB I'-.KSP) 

CLR RO 

MOV ISDBLK.RS 

MOVB ,(R3)+ 

CLR R2 

MOV $DTBL(R0),R1 

SUB Rl.RS 

BLT 4$ 

INC R2 

BR 3S 

ADD R1,R5 

TST R2 

BNE 5S 

TSTB (SP) 

BHI 7$ 



;PUSH RO ON STACK 

PUSH Rl ON STACK 
;PUSH R2 ON STACK 
;PUSH R3 ON STACK 
;PUSH R5 ON STACK 
;S£T BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 
;BR IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 
;MAKE THE ASCII NUMBER NEG. 
;ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 
; CLEAR THE BCD NUMBER 

GET THE CONSTANT 
;FORn THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 



:;ADD BACK THE CONSTANT 
;; CHECK IF BCD DIGIT=0 

;FALL THROUGH IF 0 
;; STILL DOING LEADING O'S' 
:;BR IF YES 



BOB 



rC-ll-OZRKL-E. RKll-WOS OrNflfllC TEST 



nflCYli MdOHfeJ lH-JUL-77 08:03 POCL 92 

conveRT BINARY TO oecinpL pre type RouTirc 



sen 

SttO 

H6be 
sebM 

UUJ 

seb7 

^oDO 

4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
487S 
4880 
4881 
4882 
4883 

4885 
4887 

tDBC 

48S0 
48S1 
48% 
4993 
4894 

48% 
4897 
4898 
48n 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
-»S12 
■♦S13 



Q2Ql54 
^136 
oSlfH 

m 

020156 

020172 
Q2017M 



020206 
Q2Q210 
112 
J14 
020216 
020220 

ngo??? 

020226 
020234 
020236 
Q202M0 
020242 
020244 
0202% 
020250 




177777 



5S: 



6S: 
7%: 



11] 

005720 

77 000010 



003002 
01050 2 
000764 
1 05726 
100003 

116663 177777 177776 

105013 

012606 

012603 

012602 

012601 

012600 

imtOl 020250 

016666 000002 000004 

012616 

000002 

023420 

001750 

000144 

000012 

000004 



8S: 
91: 



SOTBL: 
fOBLK: 



9SLB 

BCC 

flOVB 

BIS 

BIS 

novB 

TST 
Clf> 

BLT 
BCT 

nov 

BR 

TSTB 
BPL 

novB 

aRB 

NOV 

NOV 

NOV 

NOV 

NOV 

TYPE 

NOV 

NOV 

RTI 

10000. 

1000. 

100. 

10. 

.BLKW 



(SP) 
6S 

l(SP).-l(R3) 

• • R2 

R2.1R3)* 

RO.llO 

2S 

8S 

R5.R2 
6t 

(SP)* 
9S 

-1(SP).-2(R3) 
(R3) 

(SP)*,RS 

(SP)*,R3 

(SP)*,R2 

(SP)-^,R1 

(SP)*,RO 

.$OBLK 

2(SP),4(SP) 

(SP)*,(SP) 



NSO' 

BR IF NO 

YES— SET THE SICfl 

tWZ THE 8CQ DIGIT ASCII 

IT oT^hci IF NOT flLRCflOY fl Diir 

PUT THIS CHRRRCTER IN T>C OUTPU^ BUTFEB 

JUST INCRDCNTINC 

CHECK T>€ TRBLE INDEX 

GO 00 T»€ fCXT DIGIT 

GO TO EXIT 

C£T TfC LSO 

GO CHPNGE TO ASCII 

MRS T« LSO T« FIRST NON-ZERO' 

BR IF NO 

YES— SET T>€ SIGH FOR TYPING 

SET THE TERHINRTOR 

POP STRCK INTO R5 

POP STRCK INTO R3 

POP STRCK INTO R2 

POP STACK INTO Rl 

POP STRCK INTO RO 

N0« TYPE T« NUMBER 

ADJUST T« STACK 



;; RETURN TO USER 



.SBTTL TYPE ROUTirC 
:M«*«»«ffffffif«ft*««*«tt«ttf«ffffffftf««*i**«fttf«»«*ft«*tt«*HMtft««**« 

4R0UTINE TC TYPE RSCIZ HESSRGE. NESSAGE HOST TERHINRTE UITH A 0 BYTE. 

»THE ROUTINE UILL INSERT A NUNBER OF NUU CHRRACTERS AFTER A LINE FEED. ^ _ 

•NOTEl: $NULL CONTAINS T« CHARACTER TO BE USED AS TtC FILLER CHARACTER. 

*N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

»N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

« 

VCALL' 

»1) USING A TRAP INSTRUCTION 

# TYPE .NESADR :;NESAOR IS FIRST ADDRESS OF AN ASC12 STRING 
«0R 

* TYPE 

« NESADR 
« 



020260 105737 001157 

020264 100002 

020266 000000 

020270 000407 

020272 0100% 

020274 017600 000002 

020300 1120% 

020302 001005 



ITYPE: 



IS: 



2S: 



TSTB 

BPL 

HALT 

BR 

MOV 

NOV 

NOVB 

BNE 



STPFLG 
IS 

3S 

a2!sp),R0 

(RO)*,-{SP) 
4S 



IS T«RE A TERHINAL' 
3R IF YES 

HALT HERE IF NO TERNINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERNINATOR 



m-n-Dzm.-£, rkh-rkos DYNflfiic test 



flPCYU 30(10%) 
TYPE ROUTirC 



4S15 

wqib 

4925 
4^ 

4<ie7 

4^28 
4S2S 

4931 
4932 
4933 

4935 
4936> 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4<345 
49% 
4947 
4946 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
49bQ 
4%1 
49b2 
49fc3 
«*9f>4 
4%5 

49t>£; 



020304 
02030b 
020310 
J14 
lib 
020322 
020324 
020330 
020332 
020334 
32Q33b 
020340 
020344 
0203% 
020352 
02035b 
Q203b0 

0203b4 
020370 
020372 
02037b 
020402 



020404 
020410 

020424 
02042b 
0204X 
020434 
Q2043b 
020444 
020452 
020454 
0204b0 
02D4b2 
020470 
020472 
020474 
020476 



0Q572b 
0l2bO0 
0b271b 
000002 
12271b 
0014X 
12271b 

noioQb 

00572b 
104401 
001213 
105037 
000755 
004737 
12372b 
001350 
0137% 

I053bb 
002770 
004737 
105337 
000770 



11271b 
004737 



)1 

00572b 
000724 
105777 
100375 
llbb77 
122766 
001003 
105037 
00040b 
1227bb 
001402 
105227 
000000 
000207 



000002 

oooou 

000200 

020474 

020430 
00115& 

001154 

000001 

020430 
020474 



000040 
020430 

000007 020474 



Ib05l4 

000002 lb050b 
000015 000002 

020474 

000012 000002 



bCS: 
31: 

41: 



5S: 
bS: 



7S: 



TST 

nov 

flOO 

BEQ 

CffB 

BTC 

TST 

TYPE 

SCRLF 

CLR8 

BR 

JSR 

crf>B 

BNE 
flOV 

DECB 

BLT 

JSR 

DECS 

BR 



COS 

14- JUL -77 08:03 



(SP)* 

(SP)*.RO 

•2,(SA) 



•HT, (SP) 
8S 

•CRLF,(SP) 

ss 

(SP)* 



SCHRRCNT 
2S 

PC.ITYPEC 

SF1lLC,(SP)* 

2S 

SftJLL,-(SP) 

HSP) 
bS 

PC.STVPEC 

SCMRCNT 

71 



: HORIZONTAL TRB PROCESSOR 



8S: K)V8 
91: JSR 

Si' 

TST 
3R 

ITYPEC: TSTB 
BPL 
NOVB 
Ctf»B 
BNE 
CLRB 
BR 

IS: CHPB 
BEQ 

INCB 
SCHf)RCNT:.UORD 
ITYPEX: RTS 



.(SP) 
PC.ITYPEC 
•7,$CHflRCNT 
91 

(SP)* 
2S 

aiTPs 

STYPEC 
2(SP),aSTP8 
•CR,2tSP) 
II 

SCHRRCNT 
ITYPEX 
iLF.2(SP. 
ITYPEX 

(PC)> 
0 

PC 



PACE 93 



IF TERHINPTOR POP IT OFF THE STftCK 
RESTORE RO 
ADJUST RETURN PC 
^TURN 

BRMCH IF <HT> 



;;BR«CH IF NOT <CRLF> 

;;POP <CR><LF> EOUIV 
;;TYPE fi CR AND LF 

CLEAR CHARACTER COUNT 
Q£J rCXT CHARACTER 
GO TYPE THIS CHAfMCTER 
IS IT TINE FOR FILLER CHARS.' 
IF NO GO GET rCXT CHAR. 
GET I OF FILLER CHARS. fCEDED 
AND THE NULL CHAR. 
DOES A NULL fCED TO BE TYPED' 
BR IF NO— GO POP THE NULL OFF OF STfiC- 
GO TYPE A NULL 
00 NOT COUNT AS A COUNT 
LOOP 



REPLACE TAB UITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 

GET NEXT CHARACTER 

WAIT UNTIL PRINTER IS READY 



BE TYPED INTO DflTfl REG. 
A CARRIAGE RETURN' 



LOAD CHAR TO 
IS CHARACTER 
BRANCH IF NO 
YES—CLEAR CHARACTER COUNT 
EXIT 

IS CHARACTER A LINE FEED" 
BRANCH IF YES 
COUNT THE CW«ACTER 
CHARACTER COUNT STORAGE 



.SBTTL INTEGER MULTIPLY ROUTINE 

:;♦*##»*«««»#»««#«#«*«»««♦«*«#««#**»**»###*#*#«##»#*♦**#»♦*»#♦♦ 

• *CALL 

i» NOV NULTIPLER.-(SP) 

;* NOV MULTIPLICAND, -(SP) 

;* JSR PC.ailNULT 

:# RETURN ;;^ODUCT IS ON THE STACK 

:* 



D-n-OrRKL-E. RKll-WOS DYNflHIC TEST 
'jZr^Ll.Pll 2b-flPR-77 12:27 



4<J70 
H^7l 
H972 
H<}73 
4974 

4S71, 

4S77 

•^980 

^ses 

^987 
H988 
4969 
4990 
4991 
4992 
4993 
49<W 
4995 
49% 
4997 
4998 
4999 
5000 
SOOl 
5002 
5003 
5004 
5005 
BOOfc 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
SDlb 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5325 



020502 

aaosoM 

;io 

020514 
020516 



Q2052b 
Q2053Q 
020532 
020534 
Q205M0 
020542 
020544 
0205% 
020550 
020552 
UcfUbS M 
020556 
020560 
020562 
02056H 
020566 
020570 
020572 
020576 
020602 
02060M 
020606 
020610 



020612 
02061S 
020616 
020620 



0100% 
0101% 
0102% 
0050% 

016601 000012 
100002 
005216 
005401 

016602 000014 
I0d002 
005316 
005402 

0127% 000021 

005000 

103001 

060200 

006000 

006001 

005316 

001372 

022616 

001403 

005400 

005401 

005600 

005726 

010066 000012 

010166 000010 

012602 

012601 

012600 

000207 



000000 
000000 
000000 
000001 
020621 
020622 



DOS 

nftCYli 30(10%) i4-JUL-77 08:03 
INTEGER nULTIPLY ROUTir€ 



PRODUCT 



PAGE 



• ft 

■ 


STACK 


• t 




« f 

t " 


TOP 


• # 

f 


♦2 


inULT: 






HOV 




nov 




nov 




CLR 




nov 




BPL 




INC 




NEC 


IS: 


nov 




BPL 




DEC 




NEG 


2S: 


nov 




CLR 


3S: 


BCC 




POO 


41: 


ROR 




ROR 




DEC 




BNE 




cnp 




BEQ 




NEG 




NEG 




58C 


5S: 


TST 




nov 




nov 




nov 




nov 




nov 




RTS 



LSB'S 

nsB'S 



RO.-iSP) 

Ri,-(SP) 

R2!-(SP5 

-(§P) 

12(SP),R1 

IS 

(SP) 

Rl 

14(SP),R2 
2S 
(SP) 
R2 

•17., -(SP) 

RO 

4S 

R2,R0 

RO 

Rl 

(SP) 

3S 

(SP)*,(SP) 

5S 

RO 

Rl 

RO 

(SP)* 

R0,12(SP) 

Rl'lO(SP) 

(S^)+,R2 

(SP)*,R1 

(SP)+,RO 

PC 



.SBTTl TTY input ROUTINE 



PUSH RO ON STRCK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

CLEAR THE SIGN KEY 

GET THE nULTIPLICANO 

8R IF PLUS 

SET THE SIGN KEY 

HAKE T« nULTIPLICAND POSTIVE 

GET THE nULTIPLlER 

BR IF PLUS 

UPDATE T« SIGN KEY 

HAKE T« nULTIPLlER POSTIVE 

SET THE LOOP COUNT 

SETUP FOR THE HULTIPLY LOOP 

DON'T ADD IF nULTIPLlCAND = G 

POSITION T« PAfilTIAL PRODUCT AND 
THE nULTIPLlCA« 

HAS ALL BITS OF THE NULTIPLICAND BEEN DONE' 
BR IF NO 

SHOULD PRODUCT BE NEGATIVE^ 
CO TO EXIT IF NO 
YES— SO HAKE IT SO 



CLEAR SIGN INFO, OFF OF STACK 

PUT THE PRODUCT ON THE STACK (MSB'S- 

LSB'S 

POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 



!^NABL LS6 



STKCNT 
STKQIN 
STKOOUT: 
STKOSRT: 
STKQENO:. 
EVEN 



.UORO 
UORO 
.UORO 
.BLKB 



0 

0 
0 

1 



NUNBER OF ITEMS IN QUEUE 
INPUT POINTER 
OUTPUT POINTER 
TTY KEYBOARD QUEUE 



tTK INITIALIZE ROUTINE 

•THIS ROUTINE UILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
♦SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 



*CALL: 



JSR 



PC.STKINT 



OSObbZ 
020670 



005037 


020612 




tTKINT: CLR 






mt 


flOV 


013737 






nov 


012737 


020672 


000060 


flOV 




000200 
160564 


000062 




012777 


OOOIOQ 


160254 


NOV 


000207 






RT5 



•C-ll-DZRKL-E, RKll-RKOS DYWflMIC TEST 
orRfcLE.Pll 26-flPR-77 12:27 



020622 



5034 
5035 
5036 
5037 
5038 
503*3 
5040 
5041 
5042 
5043 
5044 
5045 
50% 
5047 
5046 
5049 
5050 
5'^1 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
50SS 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
£078 
5079 
5080 
5CB1 



EOS 

lACYli 3C'l04b) 14-JUL-7"' 08:03 
TTf lt€\n ROUTINE 



RETURN 



ITKCNT 

•ITKOSRT.ITKQIN 
STKOlN.StKOOUf 
•ITKSRV.aiTKVEC 
•|^gaitKVEC*2 

• IX.SSTKS 
PC 



PftuE 95 



CLEftR COUNT OF ITEMS IN UUEUE 
HOVE TKC STftRTING ftOORESS Of THE 
QUEUE INTO T« INPUT & OUTPUT POINTERS. 
INITIALIZE TfC KEYBO<«0 VECTOR 
4 

FLAG 

INTERRUP'' 



-BR- LJ 

CLEM7 

ENMLE TTY KEYBOARD 
RETURN TO CftLLER 



020672 
020676 
020702 
020706 
020710 
020716 

020720 
020720 
02072S 
020730 
020734 
020736 
020740 
020744 
02074 6 
020752 
0207S4 
020760 
020762 
020766 
020772 
020776 
021000 
021006 
021010 
021014 
021020 
021022 
021026 
021030 
021034 
021040 
021044 
021052 
021054 
021062 



1177% 
042716 
021627 
001004 
022737 
0GI500 



022737 
001004 
104401 
005726 
000451 
021627 
001021 
005077 
005726 
105777 
100375 
1177% 
042716 
022627 
00136b 
012777 
000002 
005237 
021627 
002H05 
021627 
003002 
0S2716 
112677 
005237 
023727 
001003 
012737 
000002 



020620 



♦TK SERVICE ROUTINE 

«THIS ROUTINE HILL SERVICE THE TTY KEYBOflRD INTERRUPT 

»BY REROING THE CHRRfiCTER FROfl THE INPUT BUFFER AND PUTTING 

tIT IN THE QUEUE. 



160250 
177600 
000007 

000176 001140 



000001 020612 
001206 

000023 

160172 

160164 

160160 
177600 
000021 

OOOIOQ 160136 

02061E 
00014Q 

000175 



000040 
177554 
020614 
020614 



iTKSRV: nOVB 
BIG 



IS: 
2S: 

3S: 
31S: 



020621 
020614 



32S: 



41: 



5S: 



CNP 
BNE 
C1P 
BEO 



CNP 

BNE 

TYPE 

T5T 

BR 

CNP 

BNE 

CLR 

TST 

TSTB 

BPL 

NOVB 

BIG 

CNP 

BNE 

NOV 

RTI 

INC 

CNP 

8LT 

CNP 

BGT 

BIC 

NOVB 

INC 

CNP 

BNE 

NOV 

RTI 



3STKB.-(SP) 
l»tCl7t.(SP) 
(SP),i> 
2S 

ISUREG.SUR 
6S 



•1. ITKCNT 
3S 

,S8ELL 
tSP) + 
5S 

(SP),i23 

32S 

3STKS 

(SP)* 

SSTKS 

31S 

MTKB.-(SP) 
•tC177, (SP) 
(SP)*,I21 
31S 

llX.aSTKS 

ITKCNT 

CSP),I140 

4S 

(SP),il75 
41 

•40,(SPJ 

(SPW.aSTKQIN 

STKOlA 

STKQIN,lSTKQENO 
5S 

•STKQSRTJTKQIN 



PICKUP THE CHPRflCTER 

STRIP THE JUNK 

IS IT fl CONTROL G' 

BRRNCH IF NO 

IS SOFT-SUR SELECTED'^ 

CO TO SUR CHANGE 



IS THE QUEUE FULL'' 

BRANCH IF NO 

RING THE TTY BELL 

CLEAN CHARACTER OFF OF STACK 

EXIT 

IS IT A CONTROL-S" 
BRANCH IF NO 

DISABLE TTY KEYBOARD INTERRUPTS 

CLEAN CHAR OFF STACK 

UAIT FOR A CHAR 

LOOP UNTIL ITS THERE 

GET THE CHARACTER 

HAKE IT 7-flIT ASCII 

IS IT A CONTROL-Q'> 

BRANCH IF NO 

REENABLE TTY KEYBOARD INTERRJF'S 
RETURN 

COUNT THIS CHARACTER 
IS IT UPPER CASE' 
BRANCH IF YES 
IS IT A SPECIAL CHAR' 
BRANCH IF YES 
HAKE IT UPPER CASE 
AND PUT IT IN QUEUE 
UPDATE THE POINTER 
CO OFF THE END' 
BRANCH IF NO 
RESET THE POINTER 
RETURN 



;4S0FTUARE SWITCH REGISTER CHANCE ROUTINE. 



021(X>4 


022737 


00017b 001140 


021072 


OOllOM 




02107M 


l[S777 


lb0044 


021100 


100101 




021102 


1177% 


lb0040 


02110b 


04271b 


17^00 


021112 


021b27 


000007 


02111b 


001300 





•C-ll-DZRKL-E. RKll-RKOS DYhWOIC TEST 
DZRKLE.Pi: 26-flPR-77 12:27 



508b 

5087 

5088 

508S 

50S0 

5091 

50S2 

50<33 

5094 

5095 

50% 

5097 

5098 

5099 

5100 

SlOi 

5102 

5103 

5104 

5105 

510b 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

511b 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

512M 

5125 

512b 

5127 

5128 

5129 

51X 

5131 

5132 

5133 

5134 

513S 

Sl3b 

= 137 



021120 


123727 


001134 


000001 


02112b 


Xlb74 






U211X 


D0572b 






021132 


004737 


020622 




02113b 


005077 


lb0002 




021142 


112737 


000001 


001135 


021150 


104401 


021727 




021154 


104401 


021734 




0211b0 


0137% 


00017b 




021 lb4 


104402 






0211bb 


104401 


021745 




021172 


0050% 






021174 


005046 






02117b 


105777 


157742 




021202 


100375 






021204 


1177% 


15773b 




021210 


04271b 


l77b0C 





021214 
021220 
021222 
02122b 
021232 



021b27 
0010D5 
104401 
0b270b 
000757 



G00025 

021722 
00000b 



FDS 

flftCYJl 3C(iQ4b} 14-JUI-77 08:03 PACE % 
T'Y INPUT ROUTINE 

;«ROUTIf€ IS ENTERED FROM THE TRAP HPNDLER. ftND UILL 

TFST FOR CHftNQ 

ERflTING IN TTY 



i»SERVlCE THE TEST FOR CHftNGE.IN_S0FlH«RE.5i'ITCH REGISTER TRftP 



UHEN OPERATING IN TTY INTERRUPT flOQf . 

CnP tSUREG.SUR ;; IS THE SOFT-SUR SELECTED 

BNE 151 ;;EXIT IF NOT 

TSTB 9STKS ; ; IS A CHAR UAITINC^ 

BPL ISS ;;IF NOT, EXIT 

NOVB afTKB.-(SP) ;;YES 

BIC •tC17^(SP^ HAKE IT 7-BIT ASCII 

CNP (SP),I^ IS IT A CONTROL -G' 

BTC 2S ; IF NOT. PUT IT IN THE TTY QUEUE 

::ANO ExIt 



>«ftftftftft«tftf«tt«ft««***tft*ftt«ti****tffti«f 

iCOMTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
»R0UTINE or FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF 
',^r^,f^r^ _r «-r^ Tvorn jhE SXTHARE SWITCH REGISTEA BEING SE^EC^EC. 

:;ARE « RUNNING IN AUTC-MOOE^ 
2$ ;;BRANCH IF YES 

(SP)+ CLEAR CONTRa-G OFF STACK 

PC.STKINT ;;FLUSH THE TTY INPUT QUEUE 

aStKS DISABLE TTY KEYBOARD INTERRUPTS 

•l.SINTAG ;;SET INTERRUPT NODE INDICATOR 



»C0NTR0L-G_BEIN^YPE0|, ^ r 



CNPB 
9EQ 
TST 
JSR 
CLR 

novB 



SGTSWR: 



19$: 



7$: 



95: 

2QJ: 



TYPE 

TYPE 

NOV 

T^-POC 

TYPE 

CLR 

CLR 

TSTB 

BPL 

NOVB 

BIC 



CNP 

BNE 

TYPE 

ADO 

BR 



021234 


Q21b27 


000015 




131: 


CNP 


021240 


001022 








BNE 


021242 


0057bb 


000004 






TST 


0212% 


001403 








BEQ 
NOV 


021250 


01bb77 


000002 


157bb2 




02l2Sb 


Ob270b 


00000b 




11$: 


ADD 


0212b2 


104401 


001213 




14$: 


TYPE 


02l2bb 


123727 


001135 


000001 




CftPB 


021274 
02l27fe 


001003 








BNE 


012777 


OCOIOC 


157b4D 







,$CNTLG 

.$NSWR 

§WREG.-(SP) 

,$nNEU 

-(SP) 
-(SP) 
SSTKS 
7$ 

a$TKB.-.5F) 
•tCl77,(SP) 



(5P),I25 
10$ 

,$CNTLU 

ib.SP 

19i 



(SPi.tlS 

lb$ 

4(SP) 
11$ 

2(SP).aswp 

•b.SP 
.StRLF 
tiNTAG.ll 
15$ 

•ioo.a$^KS 



ECHO THE CONTROL-G (tG) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE—OCTAL ASCII (ALL DIGITS. 

PROMPT FOR NEW SWR 

CLEAR COUNTER 

THE NEW SWR 

CHAR THERE ^ 

IF NOT TRY AGAIN 



;:PICK UP CHAR 
;:«AKE IT 7-BIT ASCII 



;IS IT A CONTROL-U' 
; BRANCH IF NOT 
;YES. ECHO CONTROL-U 



itUl 



; IGNORE PREVIOUS INPUT 
: LET'S TRY IT AGAIN 



IS IT A <CR>'' 
BRANCH IF NO 

YES, IS IT THE FIRST CHAfi- 

BRA^TCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-ENABLE TTY KBD INTERRUP'S" 

BRANCH IF NOT 

RE-ENABLE TTY KBD INTERRUPTS 



ZRK.E.Pii ft-fiPR-7' 12:27 



5138 

5i3<3 

51HC 

5141 

5H2 

5143 

514'^ 

5145 

51% 

5147 

5148 

514«3 

5150 

5151 

5152 

5153 

5154 

5155 

515b 

5157 

5158 

515<3 

51£>Q 

51&1 

51&2 

51b3 

51b4 

51b5 

51bb 

51b7 

51b8 

SlbS 

5170 

5171 

5172 

5173 

5174 

5175 

517b 

5177 

5178 

5179 

5180 

5181 

5i82 

5183 

5184 

5185 

5lBb 

5187 

5188 

C:8S 

5190 

5191 

5192 

5193 



02130H 
C2:30b 
021312 
02131b 
021320 
02132S 
02132b 
021332 
02133b 
0213S0 
021342 
021344 
0213% 
021352 
02135b 
Q213b0 
02l3b4 



0213bb 
021370 
02137b 
021402 
021404 
021410 
021412 
021412 
02141b 
021420 
021424 
021432 
02143b 
021444 
02144b 
021454 



000002 

004737 
021b27 

003015 
04272b 
0057bb 
M1403 
00b31b 
00b31b 
00b31b 
0052bb 
OSbblb 
000707 
104401 
00C720 



011b% 
Olbbbb 
OUSObb 
005Q4b 
0127% 
000002 

005737 
001775 
0OS337 
11 77bb 
005237 
023727 
001003 
012737 
000002 



02145b 01034b 

02l4b0 00504b 

0214b2 012703 

02l4bb 022703 

32:472 10145b 



020430 
OOOObO 

oooobr 

OOOObO 
000002 



000002 
17777b 

001212 



000004 000002 
000004 

021412 



020bl2 
020bl2 

177lbb 000Q0« 
020blb 

020blb 020b21 

U20b2C 020b lb 



fiftcvil 30ii04fcj 
T'^Y INPUT ROUTINE 



GOS 

14-JUL-77 08:03 



15S: 
IbS: 



I7i: 



18S: 
.D5ABL 



RTI 
JSR 
CMP 
BLT 
CMP 
3GT 
BIC 
T5T 

seo 

fiSL 

flSL 

flSL 

INC 

BIS 

BR 

TYPE 

BR 

L5E 



PC.ITYPEC 

(SP).lbO 

18S 

(SP).ib7 
18S 

•bO^(SP)* 

2(5^) 
17S 

(5P) 
(SP) 
(SP) 
2C5P) 

-2CSP),(SP) 
7$ 

.SQUES 
^OS 



PfiCE 9' 



RETURh 

ECHO CHAR 

CHflR < 0' 

BR«NCH IF YES 

CHflfi ) 7' 

BRANCH IF YE5 

STRIP-OFF ASCII 

15 THIS THE FIRST CHRR 

BRflNCK IF YES 

NO. SHIFT PRESENT 
CHAR OVER TO MAKE 
ROOM FDR NEU ONE. 

KEEP COUNT OF CHAR 

SET IN NEU CHAR 

GET THE NEXT ONE 

TYPE '<CR><LF^ 

SIMULATE CONTROL-U 



4THIS ROUTINE HILL INPUT A SINGLE CHARACTER FROM THE TTY 
♦CALL: 



ROCHR 
RETURN HERE 



IRDCHR: 


NOV 




NOV 




CLR 




CLR 




NOV 




PTI 


b4S: 




IS: 


T5T 




BEO 




OEC 




NOVB 




INC 




CMP 




BNE 




MOV 


2S: 


RTI 



tSP),-(5P; 

4i5P).2(SPj 

4(SP) 

-ISP) 

«b4j.-(SPi 



;GET A CHARACTER FROM THE QUEUE 
; CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 



PUSH DOUN THE PC AND 
THE PS 

GET READY FOR A CHARAC'ER 
PUT NEU PS ON STACK 
PUT NEU PC ON STACK 
POP NEU PC AND PS 



STKCNT 
i^KCNT 

aSTK00UT,4(SP) 
STKOOUT 

STKQOUT,tSTKOEND 
2S 

■STKOSRT, STKOOUT 



;:HAIT ON A CHARACTER 



decrement the counter 
get one character 
update the pointer 
ioid it go off of the end' 
Branch if no 

iRESET the POINTER 
ftETURN 



»THI5 ROUTINE HILL INPUT A 
♦CALL: 

♦ RDLIN 

# RETURN HERE 



STRING FROM THE TTY 

INPUT n STRING FROM THE TTY 
ADDRESS OF FIRST CHARACTER WILL BE ON "'HE 
TERMINATOR UILL BE A BYTE OF AL^ 0*5 



021712 
021722 



SRDLIN: MOV R3.-(SP. 

CLR - oP J 

IS: MOV ■$TTYIN,R3 

2$: CMP ISTTYIN+S. ,R3 

BLOS 4$ 



SAVE R3 

CLEAR THE RUBOUT KEY 
GET ADDRESS 
BUFFER FULL' 
BP IF YES 



'EST 



HQS 



5 . 


OP 1 ii7<J 


1 nuu 1 n 

J. L~~ i u 






f 1 ^ 


Ucl504 


1 1 Pt ! "i 
UUiUCC 


fYin: 77 




3 1 TO 


np 1 cTifc 


UU3' ID 






C 1 QQ 


np 1 c I n 


nni nn7 




n? 1 7 1 0 

uc 1 ' 1 o 




rip 1 c 1 p 


1 I P7'J7 


nnni x 


C3n t 


np 1 cpo 


1 nuun 1 


npi 7in 

UCl ' lU 




3cUC 


np 1 CPU 
ucip<r^ 


n 1 P7 1 t 


177777 




can "5 




UUjOiJJ 








np 1 cip 


npniP7 

UCUOCr 


UCi ' iC 




cane 


npf CK. 




uc 1 ' 1 w 




SCUD 


n?i CMO 


I 1 1 T?7 






npi cuu 


1 nuunt 

iUT^Ui 


uc 1 ' 1«J 




jCUO 


np 1 ccn 

UCi39U 


UUU' 






C30Q 


np 1 ccp 


UU3' ID 






CP I n 


npi ecu 


UUi~UD 




021710 


tj>i t 




1 1 P7^7 

i IC' •if 


UUUl »3 > 


3CiC 


n91 ViM 




uc 1 ' lU 




1 1 


np 1 CTTl 


UUjUID 






3Ci~ 




1 P?7n 

iCC' iJ 


uuuucP 




C3 1 C 


np 1 C7t 


nn I nn'^ 

UUiUUO 






SCiD 


nPi wm 

uc iouu 


1UT»U1 


uc 1 ■ cc 




QP 1 7 


npi cj>4 


\AJUf CO 








np 1 CJTC, 


t PP71 


nnnn?? 

uuuucc 






UCiOiC 


fnini 1 








n? t 1 14 


incni "5 

XU9UU 






CPP I 


UCiDiO 


iU^ 'Ui 






<ipp? 


npi^? 

uc iOCC 


lUiiUl 


n?1712 

UCl > IC 




CPPT 


np I LJ3C. 
UCiDCD 


(Ym71 7 






CPPM 


n?i f»Tfi 

UCIDJU 


1 U I lU 1 


UUICIC 




jCCj 


n?i^>4 


UUUr IC 






3CCD 




1 1 1137 

1 1 low' 


QP171D 






UCIO (C 


1U» lU 1 


□P1710 




CPPQ 
3CCO 


np 1 (>4(i 


IPP7PP 

iCC' C«3 








UCX03C 


nn 1 VIC 


177777 






UC A 1 








UCIDOU 


1 ^^^^ i 


no I ? m 

wU 1 C 1 ( 






uc XQD 1 








CLPT3 


UCiODO 


U X CwUw 








uc iOf u 






000002 




uc ID' c 


U A DODO 




->C JO 


npi7f¥i 

uc 1 1 uu 


UiCr DC 


□? 1 7 1 ? 

uc 1 ' 1 c 


000004 




np 1 7nfi 

uci / uo 


(Yinnn? 








uc X f lU 


nnn 








uc I'll 


finn 






5240 


npi 7tP 

UCi ' iC 


nnnnin 

UUUUiU 






DC 1 1 


uc I ' cc 






000 

www 




uc 1 f Cf 


life 




000012 

WWW W X k 


5243 


021734 


005015 


053523 


020122 


5244 


021742 


020075 


000 




5245 


021745 


040 


047040 


053505 


5246 
S2«^7 


021752 


036440 


000040 






















5 = 4^ 











12S: 



bS: 

5$: 

7S: 
8S: 



41: 
3S: 



JTTYIN 
SCNTLU 
SCNTLG 
SnSUR: 



novE 

BTC 

T5T 
BNE 

flOVB 

TYPE 

P10V 

DEC 

CUP 

BLO 

nOVB 

TYPE 

BR 

TST 

BEQ 

HOVB 

TYPE 

CLR 

CflPB 

BNE 

TYPE 

BR 

CflPB 

Bf€ 

CLRB 

TYPE 

TYPE 

BR 

TYPE 

BR 

flOVB 

TYPE 

CriPB 

BNE 

CLRB 

TYPE 

TST 

MOV 

nov 

flOV 

nov 

RTI 

.BYTE 

.BYTE 

.BLKB 

.flSCIZ 

.asciz 

.A5CIZ 



tSP)*,.R3/ 
tl77.fR3^ 
5S 
(3P5 
bS 

QJ 

i-1. (SP) 
R3 

R3,ilTTYIN 
4S 

(R3).g$ 

il* 

(SP) 
7$ 

[SP) 

•25, (R3) 
BS 

.SCNTLU 

is 

t22.(R3) 
3S 
(R3) 
,SCRLF 
.STTYIN 
^S 

.SQUES 

is 

(R3),9S 

il5.(R3)+ 
2S 

-1(R3) 

(SP)+,R3 
(5P),-(SP) 
4(SP1,2(SP) 
•$TTy1n.4(SP) 

0 
0 
B. 

/tU/<15>'12> 
/tG/<15>'12> 
<15><12>'SUR = / 



SPINEU: .flSCIZ / NEW = / 
.SBTTL READ ftN OCTfiL NUflBEP FPCri 



PfiGE S8 



CO READ ONE CH«RflCTER FROT 'HE T'c 
BR IF NO 

IS THIS THE FIRST RUBOUT' 
BR IF NO 

TYPE A B«CK SLASH 

SET THE RUBCUT KEY 
BACKUP BY ONE 
STACK EMPTY' 
BR IF YES 

SETUP TO TYPEOUT THE DELETED CHAP. 
GO TYPE 

GO READ ANOTHER CHAR. 
RUBOUT KEY SET' 
BR IF NO 

TYPE A BACK SLASH 

CLEAR THE RUBOUT KEY 
IS CHARACTER A CTRL U' 
BR IF NO 

TYPE A CONTROL "U" 

GO START OVER 

IS CHARACTER A "tR-" 

BRANCH IF NO 

CLEAR THE CHARACTER 

TYPE A "CR" & "LF- 

TYPE THE INPUT STRING 

GO PICKUP ANOTHER CHACTER 

TYPE A 

CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 

CHECK FOR RETURN 

LOOP IF NOT RETURN 

CLEAR RETURN (THE 15) 

TYPE A LINE FEED 

CLEAN RUBOUT KEY FROM THE STACK 

RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE 
TERMINATOR 

RESERVE B BYTES FOR TTY INPUT 
CONTROL -U" 
CONTROL "G- 



THE TTY 



T p — 



ScSO 



^1 

5282 
5283 
528H 
5285 
528b 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
529M 
5295 
529b 
5297 
5298 
5299 
530C 
5301 
5302 
5303 
5304 
3305 



0217b6 0100H6 

021770 OlOlHb 

021772 01 02Mb 

C12177M lOHHll 

02177b 0l2bO0 

022000 OOSOOl 
005002 
Il20Hb 

022012 00bl02 

022014 00b301 

Q2201b 00blQ2 

022020 00b301 

022022 00bl02 

022024 04271b 177770 

022030 Ob2b01 

022032 0007b4 

022034 00572b 

02203b OlOlbb 000012 

gggjjl g}^^ 02205b 

022050 012bCi 

022052 012bOQ 

022054 000002 

02205b 000000 



000004 000002 



UHiScf^Vl^l'S BftiRY^^^ fftSCII) NUMBEP FROM THE TT/ mND 

tC«-L: 

t RDOCT 
» RETURN HERE 

* 



READ an OCTAL NUMBER 
LOW ORDER BITS ARE ON TOP OF THE 5' 
HKH ORDER BITS ftRE IN SHIOC 



CiCK 



JRDOCT: 


MOV 
MOV 




MOV 




MOV 


IS: 


MOV 
RDLIN 




MOV 




CLR 




CLR 


2S: 


MOVB 
BEQ 




flSL 
ROL 




ftSL 




ROL 




ASL 




ROL 




BIG 




ADO 




BR 


3S: 


TST 




MOV 
MOV 




MOV 
MOV 




MOV 




RTI 


SHI OCT: 


.WORD 



RO.-(§P) 
R1,-(SP) 
R2.-(SP1 



(SP)*,RO 
Rl 

3S 

Rl 
R2 
Rl 
R2 
Rl 
R2 

•tC7,(SP) 

(SP)+,R1 

2S 

(SP) + 
R1,12(SP) 
R2. SHI OCT 
(S^>) + ,R2 
(SP)+,R1 
(SP)+,RO 



(SP) 



E FOR THE 



PUSH RO ON STfiCK 

PUSH Rl ON STfiCK 

PUSH R2 ON STfiCK 

REfib AN fiSCIZ LINE 

GET ADDRESS OF 1ST CHARftC^ER 

CLEAR DATA WORD 

PICKUP THIS CHARACTER 

IF ZERO GET OUT 

*2 

;«4 



;:»8 



STRIP THE ASCII JUNK 
ADD IN THIS DIGIT 
LOOP 

CLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 



;;POP STACK INTO R2 
;;POP STACK INTO Rl 
;POP STACK INTO RO 
••RETURN 

;;HIGH ORDER BITS GO HERE 



S8TTL BINARY TO OCTAL (ASCII) AND TYPE 

******************************************** 

ilHlS ROUTINE IS USED TO CHANGE A Ib-BIT BINARY NUMBER TO A b-DIGIT 
»OCTAL (ASCII) NUMBER AND TYPE IT. 

♦STYPOS — ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
«CALL: 

; NUMBER TO BE TYPED 
;CALL FOR TYPEOUT 

N=i TO b FOR NUMBER OF DIGITS TO TYPE 
:M=1 OR 0 

;;1=TYPE LEADING ZEROS 



MOV 
TYPOS 
.BYTE 
.BYTE 



NUM,-(SP) 



N 
M 



* 
* 
* 
* 
* 
* 
* 

»STYPON ENTER HERE 

♦STYPOS OR STYPOC 
»CALL: 

* MOV NUM,-(SP) 

* TYPON 



•iOsSUPPRESS LEADING ZEROS 
TO TYPE OUT UITH THE SAME PARAMETERS AS THE LAST 



;: NUMBER TO BE TYPED 
::CALL FOR TYPEOUT 



D-ll-UZRKL-E. RK11-RK05 DYN«t1IC TE5^ 
nZHKLE.PU 2b'aPR'7? 12:27 



5306 



JOS 

nfiCYIl 30(lOHfa) lM-JUL-77 08:03 
BINARY TO OCTAL (ASCII) AND TYPE 



PAGE ICO 




5326 
5327 
5328 
532*3 
5330 
5331 
5332 
5333 
533S 
5335 
5336 
5337 
5338 
533<3 
53M0 
53S1 
53M2 
5343 
S3MM 
534S 
53% 
53M7 
53M8 
53HS 
53S0 
5351 
5352 
5353 
5354 
5355 

1^ 

5358 
535S 
53S0 
53tl 



022200 
02220c 
02220b 
022210 
022214 
022216 
022220 
022222 
022224 
022230 
022234 
022240 
022244 
022250 
022252 
022254 
022266 




112637 

112737 
112737 



022276 
022300 
022301 
022302 



% 
0546 
3704 

mi 

0437 
3704 
6605 
005003 
006105 
000404 
□06105 
0G6I05 
006105 
0105C3 
006103 
1Q&337 
100016 
042703 
001002 
005704 
001403 
005204 
052703 
05270J 
110337 
104401 
105337 
003347 
002402 
005204 
000744 
012605 
012604 
012603 
016666 
012616 
000002 
000 
000 
000 



tJTYPOC— ENTER HERE FOR TYPEOUT OF A lb BIT NUMBER 
tCALL; 

# NOV NUf1,-(5P) ;;NUnBF.R 10 BE TYPED 

ft TYPOC ;;CALL FOR TYPEOUT 



51 022303 
022305 
000002 

000001 022303 

000006 022305 

000005 022302 



022305 

000006 
022304 
022303 
000012 



ITYPOS: 

f TYPOC: 
JTYPON: 



MOV 
I10VB 
flOVB 
AC 



022304 
17777CJ 



000060 
00004C 
022XU 
022?'ju 
022302 



IS: 
2S: 

3S: 



000002 000004 



4S: 
5S: 

7$: 



6S: 



BS: 

lOCNT: 



novB 

HOVB 

HOVB 

MOV 

MOV 

MOV 

MOVB 

^ 

MOVB 

HOVB 

MOV 

CLR 

ROL 

BR 

ROL 

ROL 

ROL 

MOV 

ROL 

DECB 

BPL 

BIC 

BNE 

TST 

BEO 

INC 

BIS 

BIS 

MOVB 

TYPE 

DECB 

BGT 

BLT 

INC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 



a(5P),-(SP) 
l(SP);iOFIL 



ILL 

)*:sofioDe+i 



(SP)*^S( 

•i.lOFILL 
•6 SOMODE-^1 
•5,$XNT 
R3,-(SP) 
R4 -(SP) 
R5,-(SP) 
$0W0DE*l,R4 
R4 

•6,R4 

R4.I0M0DE 

fOFILL.R4 

12(SP),R5 

R3 

R5 

3S 

R5 

R5 

R5 

R5,R3 
R3 

iOHODE 
7$ 

•177770, R3 

4S 

R4 

5S 

R4 

•'0.R3 
• • .R3 
R3^6S 

ioCNT 

2S 

6S 

R4 

2S 

(SP)*,R5 

(SP)+,R4 

(SP)*.R3 

2(SP).4(SP) 

(SP)*,CSP) 

0 
0 
0 



PICKUP THE MODE 
LOAD ZERO ^ILL SWITCH 
NUMBER OF DIGITLTQ TYPE 
(«JU5T RETURN ADDRESS 

SET THE ZERO FILL SUITCH 
SET FOR SIX(6) DIGITS 
SET THE ITERATION COUNT 
SAVE R3 
SAVE R4 
SAVE R5 

GET THE NUMBER OF DIGITS TO TYPE 

SUBTRACT IT FOR MAX. ALLOUED 
SAVE IT FOR USE 
GET THE ZERO FILL SUITCH 
PICKUP TfC INPUT NUMBER 
CLEAR THE OUTPUT UORO 
ROTATE MSB INTO "C" 
GO 00 MSB 
FORM THIS DIGIT 



GET LSB OF THIS DIGIT 
TYPE THIS DIGIT' 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0' 
BR IF YES 

DON'T SUPPRESS ANYMORE 0"S 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
; RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 



•O-lI-nZRKL-E, RKH-RKOS OrfWIIC TEST 
CrRKLE.Pli 2t,-fiPR-77 12:27 

^ fi^im 000888 

5364 
5365 
5366 



KOS 

nfiCYU 30(1046) 14-JUL-77 08:03 
BINARY TO OCTAL (ASCII) AND TYPE 
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im\ m 8 



ii^E'ht TO 



TYPE 



SBTTL TYPOSS - TYPE DECIMAL, LEADING ZEROES SUPPRESSED 
FOR TYPING OUT DECINAL NUMBERS, uEAOING O'S ARE SUPPRESSED 



MSe 

the number is left justified. 

TYPDSS 



NOTE THE 16 BIT BINARY NUMBER SHOULD 

;PUT BINARY NUMBER ON STACK 
;G0 TYPE DECIMAL 



022306 
022314 

022320 


016637 
0127% 
004737 


000004 
022346 
022506 


022346 


TYPDES: 


NOV 

nov 

JSR 


4(SP),1S 

•IS.-ISP) 

PC,i)«SDB2D 


022324 


004737 


022352 






JSR 


PC.aiSSUPRS 


022342 
022344 


8151^ 

005726 
000002 


888881 


000004 




nov 
nov 

TST 
RTI 


2i5P).4(SP) 
(SP),J(SP) 
(SP) + 


022346 


000000 


OOOOOQ 




IS: 


.UORO 


0,0 



TO 



GET THE NUMBER 

PUT PTR ON THE STACK 

GO TYPE OUT DECIMAL STRING 
SUPRESING LEADING O'S 
ADJUST RETURN 
At)JUST RITURN ADRES 
POP STACK 
RETURN 



.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

4THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 

^LEADING NUMBERS. 

♦CALL 

FIRST ADDRESS OF ASCIZ STRING 



MOV 
JSR 



•NUnADR,-(5P) 
PC,af$sOPRS 



022352 010046 
022354 016600 000004 
022360 105710 
022362 001403 
022364 122720 000060 
022370 
022372 
02237M 
022400 
022402 
022404 
022406 
022410 



SSUPRS: MOV 

nov 



001773 
005300 
010037 022402 
104401 
000000 
012600 
012616 
000207 



IS: 



2S: 



3S: 



TSTB 

BEO 

CMPB 

BEQ 

DEC 

MOV 

TYPE 

.UORD 

nov 

MOV 
RTS 



RO.-(SP) 
4(SP),R0 
(RO) 
2S 

•'0,(R0)+ 
IS 

RO 

R0,3S 

0 

(SP)*,RO 

(SP)+,(SP) 

PC 



SAVE RO 

PICKUP THE POINTER 

TERMINATEOR' 

BR IF YES 

IS THIS AN ASCII "0" ' 
BR IF YES 
BACKUP BY "r 
SAVE FOR TYPING 
GO TYPE 

ASCIZ POINTER GOES HERE 
RESTORE RO 
RESTORE THE STACK 
RETURN 



.SBTTL SAVE At.'D RESTORE R0-R5 ROUTINES 

;;##»*»*»##*»«*»»*###«#♦###♦#»»««»***####»»»*«*»*##♦*«♦♦*##»♦*»** 

;4SAVE R0-R5 
«CALL: 

* SAVREG 



•C-ll-DZRKL-E, RKll-RKOS DYNflfllC TEST 
OZRKLE.Pll 2t)-ftPR-77 12:27 



LOS 




54H0 

5441 
5442 
5443 
5444 
5445 
54% 
5447 
5448 
544<J 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
545S 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 



0224% 



022450 

022450 
022H54 
022460 
022%4 
022470 
022472 
022474 
022476 
022500 
022502 
022504 



022S06 
022S10 
022514 



0100% 

m 

0103% 

166% 
0166% 

im 

000002 



012666 
012666 
012666 
012666 
012605 
012604 
012603 
012602 
012601 
012600 
000002 



104413 
016602 
012700 



000022 
000022 



000022 
000022 
000022 
000C22 
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SAVE AND RESTORE RO-RS ROUTINES 

«UPON RETURN FROn ISRVREC THE STACK UILL LOOK LIKE: 

»TOP — (+16) 
« •»-2 — (■••18) 

» 44 R5 

» •f6— R4 
* *B — R3 
t+lO— R2 
»+12 — Rl 
#414 — RO 



SSPVREG: 

MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

♦RESTORE R0-R5 
#CALL: 

RESREG 



RO,-(SP) 

R1,-(SP) 

R2,-(SP) 

R3,-(SP) 

R4,-(SP) 

R5 -(SP) 

22(SP),-(SP) 

22(SP),-(SP) 

22(5P),-(5P) 

22(SP) -(SP) 



PUSH RO Oh 
PUSH Ri ON 
PUSH R2 ON 
PUSH R3 ON 



R4 ON 
R5 ON 
SAVE PS OF 
SAVE PC OF 



PUSH 
PUSH 



AVE pc 
5AVE Pi 



OF 
OF 



STACK 
STACK 
S'^ACK 
STACK 

MAIN FLOU 
MAIN FLOW 
CALL 
CALL 



tRESREG 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



(SP)*,22(SP) 
(SP)4 22(SP) 
fSP)+,22(SP) 
C •>)♦ 22(SP) 
(S: ^4,R5 
(SP)4,R4 
(SP)* R3 
CSP)+,R2 

( 

( 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOU 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 



.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

4tHIS ROUTINE UILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
•DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
•POSITIVE. 
•CALL 

« MOV «PNTR,-(SP) ;; POINTER TO LOW WORD OF BINARY NUMBER 

* JSR PC.aiSDB2D 

» RETURN ' ;; THE FIRST ADDRESS OF ASCI2 

; I IS ON THE STACK 



000002 
022666 



IDB2D: 



5AVREG 

MOV 

MOV 



2(SP).R2 
•SDEC<^L,RO 



SAVE REGISTERS 

PICKUP THE DATA POINTER 

GET ADDRESS OF "iDECVL" STRING 



rt)-ii-OZPKL-E. RKU-RKOS DVNflfllC TEST 
DZfiKLE.PU 2b-ftPR-77 12:27 



MQS 
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DOUBLE LENGTH BINftRY TO OECItlftL fiSCII CONVERT ROLTINE 



5476 

5477 
5M7B 
5H7<3 
SM80 
5481 
5482 
5483 
5484 
5485 
5488 
5487 
5488 
548*3 
54'« 
5491 
54«E 
54S3 
5494 
5495 
54% 
5497 
5496 
5499 
55Cn 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
55 1& 
5517 
5518 
55 IS 
5520 
5521 
5522 
5523 
5524 
5525 
552fc 
5527 
5528 
5529 



rp?«^ QiaxA 000002 

D2SSW 012201 
Z22S2b 012202 

8iPS 8?§Eii 

022S42 012705 022b20 
0225% 005003 
^550 161401 
022S52 005602 
022554 161502 
402 



022562 000772 

022S64 062401 

022S66 005502 

022S70 062402 

022572 022525 

022574 052703 000060 

022600 110320 

022602 005327 

022604 000000 

0^2606 001357 

022610 105020 

022612 104414 

02261M 000207 

022616 1M5000 

022620 035632 

022622 160400 

022624 002765 

022626 113200 

0226X 000230 

022632 041100 

022634 000017 

022636 103240 

022640 000001 

022642 023420 

022644 000000 

0226% 001750 

022650 000000 

022652 000144 

022654 000000 

022656 000012 

022660 000000 

022662 000001 

022664 000000 

022666 000014 



IS: 
2S: 



3S: 



4f: 



STNPUR: 



SOECVL: 



MOV 

nov 
nov 

MOV 

CLR 

SUB 

SBC 

SUB 

BLT 

INC 

BR 

POD 

ADC 

POD 

CMP 

BIS 

HOVB 

DEC 

.UORO 

BNE 

CLRB 

RESREG 

RTS 

145000 

35632 

160400 

2765 

113200 

230 

041100 

17 

103240 
1 

23420 
0 

1750 
0 

144 

0 

12 

0 

1 

0 

.BLKB 



•mm 

(R2)+,R2 
•i?N^l2,R4 

•$tnpur42,rs 
R3 

(R4),R1 
R2 

(R5),R2 
3S 
R3 
21 

{R4)4-,R1 
R2 

(R4)+,R2 
(R5)+. (R5)+ 

•'D,r5 

R3,(R0)* 
(PC) + 
0 
If 

(R0) + 
PC 



12. 



;;CLEfW PfiRTIflL 

; I SUBTRACT TEN POUER 

;BR IF TEN POWER TO LARGE 
ADD 1 TO PARTIAL 
;L00P 

; RESTORE SUBTRACTED VALUE 



MOVE TO NEXT TEN POUER 
CHANGE PARTIAL TO ASCII 
SAVE IT 
DONE' 

BR IF NO 

TERMINATOR 

RESTORE REGISTERS 

RETURN 

1.0E09 

1.0E08 

1.0E07 

1.QE06 

1.0E05 

1.0E04 

1.0E03 

J.0E02 

l.OEOl 

l.OEOO 

RESERVE STORAGE FOR ASCI 2 STRING 



.5BTTL TRAP DECODER 

;#»««««««»»««»««»»«###»*»»*««»»»*«*»**»*««»»"»»»»*«**»»*"^^^^ 

4thIS ROUTINE UILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
»AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
»0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT UILL 
»G0 TO THAT ROUTINE. 



rC-H-DZRKL-E, RKll-RKOS DYNflMIC TEST 
DZRKLE.Pii 26-flPR-77 12:27 



TRAP DECODER 



HQS 

iM-JUL-77 08:03 



SSJD 
5531 



553S 

5535 

553& 

5537 

5538 

553«3 

5540 

5541 

5542 

5543 

5544 

5545 

55% 

5547 

5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

55bl 

5562 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

5584 

5585 



022702 

022712 
022714 
022716 
022722 



022724 
022726 
022734 



010046 

am 

111000 
006300 

016000 022736 
000200 



011646 

016666 000004 000002 
000002 



022736 
022740 
022742 
022744 
0227% 
022750 



022724 
Q£0260 
Q2210M 
022060 
022120 
020034 



022752 021154 



022754 
022756 
022760 
022762 
022764 
022766 

022770 

022772 

022774 

022776 

023000 

023002 

023004 

023006 



021064 
021366 
021456 
021756 
022412 
022450 

016602 

016470 

016044 

016106 

016620 

016716 

016514 

022306 



ITRfiP: MOV RQ.-(5P) 

nOV 2(SP),R0 

TST -(RO) 

MOVB (RO),RO 

flSL RO 

nOV ITRPflD(RO),RO 

RTS RO 



PftGE lO-^ 



^T T§8p address 

BACKUP BY 2 

GET RIGHT BYTE OF TRAP 

POSITION FOR INDEXING 

INDEX TO TRBLE 

GO TO ROUTINE 



; ;THIS IS USE TO HANDLE THE "GETPRI" NACRO 
STRAP2 



MOV 
MOV 
RTI 



(SP),-(SP) 
4(SP),2(SP) 



;;MOVE THE PC DOUN 
;;HOVE THE PSU DOWN 
;; RESTORE THE PSW 



.SBTTL TRAP TABLE 



;»THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
•vBY THE "TRAP" INSTRUCTION. 



iTRPAD: 



ROUTINE 

.WORD 

STYPE 

STYPOC 

STYPOS 

ITYPON 

5TYPDS 

SGTSUR 

SCKSUR 

SRDCHR 

SRDLIN 

IRDOCT 

SSAVREG 

SRESREG 

CN.RST 

DR.RST 

nSGE 

TY.MSG 

CN.RDY 

TSTRUS 

RES. DO 

TYPDES 



STRAP2 
CALLsTYPE 
CflLL=TYPOC 
CALL=TYPOS 
CALL=TYPON 
CALLsTYPDS 



TRAP+1 (104401) 
TRflP+2( 104402) 
TRAP43( 104403) 
TRflP+4( 104404) 
TRAP+5( 104405) 



TTY TYPEOUT ROUTINE 
TYPE OCTAL NUfBER (UITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE XTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (UITH SIGN) 



CALLsGTSUR TRAP46( 104406) GET SOFT-SUR SETTING 

CALL=CKSl« TRAP+7( 104407) TEST FOR CHANGE IN SOFT-SWR 

CALL=ROCW TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 

CALL=RDLIN TRAP+IK 104411) TTY TYPEIN STRING ROUTINE 

CALLsRDOCT TRAP+12( 104412) READ AN OCTAL NUMBER FROM TTY 

CALLsSAVfiEG TRAP+13( 104413) SAVE RO-RS ROUTINE 

CALL=RESREG TRAP+14( 104414) RESTORE R0-R5 ROUTINE 

CALL=CON. RESET TRAP+15( 104415) CONTROL RESET ROUTINE 

CALL=DRV. RESET TRAP+16( 104416) DRIVE RESET ROUTINE 

CALL^MESAGE TRAP417( 104417) MESSAGE HANDLER 

TRAP+20( 104420) MESSAGE TYPEOUT ROUTINt 

TRAP+21( 104421) UAIT FOR CONTROL READY 

TRAP+22( 104422) TEST R/U/S ROY SET 

TRAP+23( 104423) DRIVE RESET DONE' 

TRAP+24( 104424) TYPE DECIMAL. SUPRES LOG O'S 



CALLsTYPMSG 

CALL=CON.RQY 

CALLsTST.RUS 

CALL=RESOON 

CALL=TYPDSS 



023010 

0830% 
0230X 
023038 
08303H 
QS303b 
023040 
023tW 
Q230S0 
02305& 
Q23QbO 



012737 
012737 
0100% 
0101% 
0102% 
0103% 
0104% 
0105% 
0177% 
010b37 
012737 
OOOOQQ 
00C77S 



0231S4 
000340 



000024 
000026 



15£>07M 
0231 bO 
0230b2 



000024 



DZPKLl.Pll 26-flPR-77 12:27 



S58b 

5587 
5586 
550S 
55V 

55S1 
5ES2 
55<0 
5594 
5S«6 
55% 
5597 
5598 
5599 

5&CI 
5b02 
5b03 
5b04 
5605 
5b0b 
5607 
5606 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
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.S8TTL POUER OOUN ATC UP ROUTirCS 

; :tft«t«««ftftft*««*tft««««*ftt«M««tft««««ft«««ft«ffff»«t«ftt««f §#«*#*##« 

iTOtCR D0W1 ROUTirC 



iPUPON: 



nov 
nov 

NOV 

nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 

HALT 
BR 



HILLIF.SIPURVEC 

•aso.ai^MvEc^a 

RO.-JSP) 
Rl -(SP) 

R4,-(SP) 

re.-(SP) 
aoR.-tsp) 

SP.t§«VRb 
•S^AUP.SlPURVEC 

.-2 



iS£T FOR FRST UP 
^10:7 

PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PuSi R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH KUR ON STACK 
SAVE SP 
:SET UP VECTOR 



;;HANG UP 



023062 


012737 


023154 


000024 


iPURUP: 


nov 


D23070 


013706 


023160 






nov 


023074 


005037 


023160 






CLR 


Q231Q0 


005237 


023160 




If: 


INC 


023104 


001375 








BNE 


023106 


012677 


156026 






nov 


023112 


012605 








nov 


023114 


012604 








nov 


023116 


012603 








nov 


023120 


012602 








nov 


023122 


012601 








nov 


023124 


012600 








nov 




012737 


023010 


000024 




nov 


^ili 


012737 


000340 


000026 




nov 


023142 


104401 








TYPE 


023144 


023162 






IPWnG: 


.UORO 


0231% 


012716 








nov 


023150 


004244 






fPURAO: 


.UORO 


023152 


000002 








RTI 


Q231SH 


000000 






fiLLUP: 


HALT 


Q231S6 


000776 








BR 


023160 


000000 






fSAVRb: 


0 


023162 


005015 


047520 


042527 


SPOUER: 


.ASCIZ 


023170 


000122 








• EVEN 



tSIUUP.StPURVEC 

ISAVR6,§P 

tSAVR6 

ISRVR6 

IS 

(SP)>,asi« 

(SP)*,R5 
(SP)*,R4 
(SP)4,R3 
(SP)*,R2 
(SP)*,R1 
(SP)+!rO 

iSPUR^N.StPURVEC 
•340,ai^VEC+2 

SPOUER 

(PC;+,(SP) 
PMRFL 



<i5>a2>"P0i4ER'" 



DOUN 



:SET FOR FAST 
fiET SP 
UAIT LOOP FOR THE 
UAIT FOR THE INC 
OF UORD 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 

^10 



TTY 



INTO asw 

INTO RS 
INTO R4 
INTO R3 
INTO R2 
INTO Rl 
INTO RO 
UP THE POUER DOUN VECTOR 
7 



Report the pouer failure 
; pouer fail rcssage pointer 
{restart at purfl 
•restart address 

;the pouer up sequence uas started 
before the pouer doun uas conple'e 

!pUT THE SP HERE 



D-ii-DZRKL-E. RKii-RkOS DmOtK TEST 
2ZRklS.Pll 2b-(^-7? 12:27 



5&33 
5b3H 
5£»35 
Sb3b 
5b37 

Sb3e 

5(>3S 
564C 
SbMI 
5£>M2 
S£>M3 
S4>4M 

5b% 
5bM7 
56H6 
56^S 
SbSO 
SbSl 
SbSZ 
5b53 
SbSM 
5C>55 
SbSb 
SfcS7 
5658 
5b59 
SfabO 
SSAi 
5b&2 
5{>f>3 

SttS 
Sbbb 
Sbb7 
SbbB 
5bfa9 
SfcTO 
5b71 
5t>72 
5673 
SfeTM 
SfcTS 
56 7& 
5677 
5678 
5679 
5680 
5661 
5662 
5683 
568H 
5685 
5686 
5687 
5688 



cog 



023172 

023172 lOHMOl 023200 
023176 000407 

023216 

023216 iOmil 
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.SBTTL ruNCTIOH SELECTION PROGRflN 



THIS IS ThC FUNCTION 
ON ENTERING THIS ~ 

FUNCTION' 
CONTMNDS: CR 



TION PROGRflH. 

THE FIRST QUESTION fiSKED IS 
IN REPLY TYPE IN ONE OF THE FOLLOWING CONNfiNCS 
CONTROL RESET 
gRjVE RESET 

lAITE 
RD - REflO 
HC - URITE C«CK 
RC - READ C»€CK 

TERWNfiTE EVERY COWflfC WITH <CR>. FURT«R QUESTIONS (RKBfl' . RKOA' . 
■WORDS' ) UILL BE ASKED. TYPE IN THE BUS ROORESS (XTRL). DI^ ROORE^S 
( OCTAL )^ (H) NUHBER OF WORDS TO BE TRRMSFERRED (XTRL). IF A NON-EXISTENT 
CYLIfCEA OR A NON-EXISTENT SECTOR IS TYPED IN, T« QUESTION (RKOA') UiLL 
BE ASKED AGAIN. 

IN CASE OF SEEK FUNCTION. SEEK IS OOtC BETlCEN A SET OF CYLirCERS GIVEN 
BY T« USER (CYLl' . CYL2'). IN REPLY TO (CYLl', CYL2') TYPE IN Jt€ OCTAL 
CYLINDER NUHBERS BETWEEN WICH T»€ SEEK IS TO BE DONE. SET SWITCH 
REGISTER BITS <15-13> TO THE DRIVE • ON WHICH SEEK IS TO BE DOfC. 

IN CASE OF A WRITE FUKTION IF SW 0 IS SET TO 1 T« PROGRAM WILL ASK 
THE USER FOR THE PATTERN TO BE WRITTEN: 

PATRN'12S2S2<CR> 
T* USER SHOULD TYPE IN ThC (XTAL) PATTERN HE WANTS TO 1*1 TE. 
NOTE THAT THE NUTKR OF WORDS TRANSFERRED SHOaO BE WITHIN T« 
BOUrCS OF THE SYSTEM. 

IN CASE OF A 1«ITE CtfCK FUNCTION IF SWO IS SET TO 1 T« PROGRAM 
WILL ASK T« USER FOR THE PATTERN TO BE WRITE CHECKED: 
PfiTRNn25S2<CR> 

T« USER SHOULD^YPE IN T« (OCTAL) PATTERN TO BE WRITE CHECKED. 

: LOCATIONS -I08UFO" ONWARDS ARE RESERVED FOR DATA BUFFERS. YOU CAN JSE 
;T>CSE LOCATIONS FOR DOING DATA TRANSFERS IN THIS PROGRAM (OR YOU CAN 
USE ANY OTHER BUFFER FOR DATA TRANSFER AS LONG AS IT DOES NOT O'/ERLAY 
;THE PROGRAM). 

THE SAME FUNCTION IS PERFORMED AGAIN ATC AGAIN, THUS PROVIDING 
A VERY GOOD SCOPE LOOP. If YOU WANT TO GIVE A NEW FUNCTION PUT SW 3 LP. 
THE QUESTION (FUNCTION') WILL BE ASKED AND YOU CAN START ALL OVER AGAIN. 
IF ON EXECUTING A FuNCTION AN ERROR OCCURS, IT IS REPOTRED . WITH 
RELEVANT REGISTER CONTENTS GIVEN. 

;R2 CONTAINS RKCS CONTENTS 
;R3 CONTAINS RKDA CONTENTS 
;R4»R5 CONTAIN T« C^XINOER tS BETWEEN 
WHtCH SEEK IS TO BE DONE. 



FUNBEG: 



::6SI: 
fe^f: 



TYPE 
BP 

.ASCIZ 
RDLIN 



,651 :; TYPE ASCIZ STRING 

rrGET OVER THE ASCIZ 
<15><12> ''FUNCTION' / 





□23220 


Ol2b00 






03322? 




000127 




Q2322M 
09^30 


120127 
Qul02b 




023232 


121027 


000122 




02323h 


QDIDIO 






023240 


004737 


0240b4 






012702 


004003 


54,97 


M^iJ 


00053b 




Sb% 








5£>9S 


023252 


012702 


000003 


5700 


023256 


000521 




5701 


023260 


121027 


000103 


5702 


0232b4 


001342 




5703 


Q232bb 


004737 


0240b4 


570»4 


023272 


012702 


004007 


5705 


02327b 


000523 




570b 








5707 


023300 


012702 


000007 


5708 


023304 






5709 








5710 


Q2330b 


120127 


000122 


5711 


023312 


001014 




5712 


023314 


121027 


000104 


5713 




001003 




S71H 


023322 


012702 


000005 


5715 


02332b 


00047S 




571b 


023330 


121027 


000103 


5717 


023334 


00131b 




5718 


02333b 


012702 


000013 


571'3 


0233H2 


000501 




5720 








5721 


023344 


120127 


000104 


5722 


0233SO 


00100b 




5723 


023352 


121027 


000122 


5724 


0233Sb 


00130S 




5725 


0233bC 


012702 


000015 


S7cb 


0233b4 


000470 




5727 








5728 


0233bb 


120127 


000103 


572S 


023372 


OGlOOb 




57X 


023374 


121027 


000122 


5731 


023400 


001274 




5732 


023402 


012702 


000001 


5733 


0234Qb 


000533 




573M 








5735 


023410 


120127 


000123 


573b 


023414 


001256 




5737 


02341b 


121027 


000113 


5738 


023422 


001263 




573S 


023424 


012702 


000011 


5740 








5741 


023430 






5742 


0234X 


104401 


02343b 


5743 
5744 


023434 


000404 











30>i04b) 14-:UL-77 08:03 
ON SELECTION PROCRfln 



PftGE io: 



fiov 

MOVB 
CMPB 

arc 

CMPB 

Brc 

JSR 

nov 

BR 

nov 

BR 

CHPB 

BNE 

JSR 

NOV 

BR 

fiov 

BR 

crf>8 

BNE 

CHP8 

BIC 

NOV 

BR 

CHPB 
BNE 
KOV 
BR 

CHPB 

one. 

CMPB 

BNE 

NOV 

BR 

CHPB 
BNE 
CNPB 
BNE 

nov 

BR 

CflPB 

BNE 

CNPB 

BNE 

NOV 



(SPU.RO 
(RO)+.Ri 
Rl.l'il 
2S 

(ROM'R 
IS 

PC.CHKSUO 
•4603, R2 
NXTDA 

•3.R2 

NXTBA 

(RO).fC 

FUNBEG 

PC.CHKSWO 

•4007. R2 

NXTDfl 

•7.R2 
NXTBR 

Rl.l'R 
3S 

(RO).t'D 
8S 

•5.R2 

NXTBfl 

(RO).l'C 

FUNBEG 

•13.R2 

NXTDfl 

R1,I'D 
4$ 

(ROKI'R 
FUNBEG 
•15. R2 

NXTOfl 

R1,^'C 
5S 

(RO).^'R 

FUNKG 

•1.R2 

EXEC 

R1.«'S 
FUWEG 
(RO).«'K 
FUNKG 
•11, R2 



;CHECK 5U 0 SET^ 



; CHECK SU 0 SET' 



TYPE ,671 
BR 66S 

.ftSCIZ /CYLi' / 



:;TYPE flSCIZ STRING 
:;GET OVER THE flSCI 



li-li-DZRKL-E. RK11-RK05 OYNflMIC TEST 
DZRkLE.Pll 2fc-flPR-77 12:27 



024032 



3' ^ 




nnM7'i7 


Itm? 




000766 


3» TO 




















UC«7T30 




3r 3C 






3r 3J 












57^ 

3' 33 






3« 30 




UUU r DO 


3' 3' 


0?35n? 




3 ( jO 


0?!35O>4 


017700 




















3' OC 




















023522 








104401 




0235% 

UC433CD 












023540 




5770 


a235M0 


104412 


5771 


023642 


D12W 


L77P 






5773 


02354{> 




577M 


02354(> 


104401 


5775 




000404 








5777 


023564 




577B 


Q235Ci4 


104412 


577^ 




012600 




023570 


QlOODl 


5781 


023572 


006201 


57S2 


023674 


006201 


57M 






57BM 


ftP'VJVI 


006201 


STBS 


Q23U)2 


006201 


57% 


Q23b04 


042701 


S7B7 


023bl0 


020127 


5788 


023614 


003354 


57BS 


023blE> 


QlOODl 


57^ 






5791 


023624 


020127 


57^ 


023630 


0033% 


S7q3 


023632 


010003 

W A WWWw 


S79S 


023634 


022702 


S79S 


023640 


001416 


57% 






5797 






S7W 


023642 




579S 
ESX 


023642 


104401 


02364b 


000405 



02346'* 



024032 



155430 
017777 



fIftCYll 
FUNCTK 

66i: 



7$: 



023530 

001476 
023554 



NXTBA: 



::65i: 
44s : 



NXTDfl: 



177400 
000312 



177760 
000013 



000015 



02365G 



NXTUC: 



30(10%) 14-JUL-77 08:03 PftCE 108 
ti SELECTION PR0GR«f1 



NOV R0,R4 

TYPE .69$ ;:TYPE flSCIZ STRING 

BR Lai I: GET OVER THE ASCIZ 

.flSCIZ /CYL2' / 

JSR PC.INPT 

BR 7S 

flOV RO R5 

nOV aS<«^RO :GET DRIVE • FROM SU REG<15-13> 

BIC •177>7,R0 ;CLR UNWANTED BITS 

BIS R0.R4 :SET DRIVE • IN DSK flDRES 

BIS R0.R5 

BR EX^C 



TYPE 
BR 

.ASCIZ 

RDOCT 
flOV 



,651 
&4S 

/RKBfi' / 



(SP)+,INDX2 



;:TYPE flSCIZ STHING 
;;GET OVER THE ASCIZ 



TYPE 
BR 

.ftSCIZ 

RDOCT 

NOV 

NOV 

A5R 

ASR 

ASR 

ASR 

flSR 

BIC 

CNP 

BGT 

MOV 

BIC 

CMP 

BGT 

MOV 

CMP 

BEQ 



,65S 
64S 

/RKDfl' / 



(SP)+,RO 

R0,R1 

Rl 

Rl 

Rl 

Rl 

Rl 

•177400. Rl 
Rl.t312 

NXtOfi 
RO.Rl 

■1^7760, Rl 

Rl.tl3 

NXTDfl 

R0^R3 

•1§.R2 

EXEt 



;;TYPE ASCIZ STRING 
;:GET OVER THE flSCIZ 



TYPE 
BP 



:;TYPE flSCIZ STRING 
;;GET OVER THE flSCIZ 



D-il-OZRKL-E. RKll-RKQS DYNflMIC TEST 
DZRKLE.PU 26-flPR-7f 12:27 



tIftCYU 30(iOHb) 14-JUL-77 
FUNCTION SELECTION PROGRAM 



F09 

08:03 



PACE 109 



58Q1 

5802 

5803 

580N 

5805 

580b 

580^ 

5808 

58CS 

5810 

5811 

5812 

5813 

5814 

5815 

5eib 

5817 

S81B 

5819 

5820 

5821 

5822 

5823 

5824 

582S 

582b 

5827 

5828 

5829 

5830 

58?1 

5832 

5833 

583S 

5835 

583b 

5837 

5838 

5839 

5840 

58M1 

58M2 

58S3 

sens 

b8% 
58M7 
5848 
5849 
58S0 
5851 
58S2 
5853 
5854 
5855 
E85b 



023bb2 
023bb2 
Q23b64 
023bbb 

023b7M 
023b7& 
023702 
023704 
02370b 
023710 
023712 
023714 
02371b 
023724 
0237X 
02373b 
0237M2 
0237% 
023750 
023754 
023758 

0237S0 
0237bb 
023770 
02377b 
024000 



024004 
024012 
024020 
024024 
02402b 
024030 

024032 
024034 
02403b 
024042 
024044 
0240% 
024050 
024052 
024054 
02405b 
0240b2 

02«0b4 
024072 

024074 
324 IX 



::b5l: 



104412 








00541b 








0l2b37 


001502 






000401 








104415 






EXECl: 


022702 


000011 






001005 








020403 








001402 








010403 








000401 








010503 






3S: 


013777 


00147b 


15553b 


2S: 


010377 


1555J4 






013777 


001502 


155522 




010277 


155514 






105777 


155510 




IS: 


100375 








022702 


000001 






001401 








104423 








032777 


140000 


155470 


4S: 


00100b 








032777 


000010 


155H2 


CHSU: 


001737 








000137 


023172 







012737 
012737 
004737 
104030 
104415 
000757 

104412 
012b00 
020027 
003007 
00b300 
00b300 
00b300 
00b300 
00b300 
0b27lb 
000207 

032777 
00141b 

104401 
0004C4 



023b74 
023b74 
01blb2 



001 110 
001 10b 



FUNERR: 



INP- 



00G312 



000002 
000001 
024102 



IS: 



15504b 



.ftSCIZ /•WORDS' 



RDOCT 
NEC 
NOV 
BR 



CMP 
BNE 
CUP 
BEQ 

NOV 

BR 

NOV 

NOV 

NOV 

NOV 

NOV 

TSTB 

BPL 

CNP 

BEQ 

RESOON 

BIT 
BNE 
BIT 
BEQ 
JNP 



(SP) 

(SP)*.INDX4 
EXEC 



•11, R2 
2S 

R4,R3 
3S 

R4,R3 
2S 

R5.R3 

JN6x2,aRKBfl 

F-.aRKDfi 

INDX4.aRKUC 

R2,amcs 

SRKCS 
IS 

»1,R2 
4$ 



1140000, SRKCS 

FUNERR 

•5U3,a5kiP 

EXEC 
FUNBEG 



NOV 
NOV 
JSR 
ERROR 
CON. RESET 



•EXECl.SLPERR 
•EXECl-SLPflOR 
PC,GT4ftG 
30 



BR 



NOV 
CNP 
BGT 
fiSL 
P5L 
P5L 
P5L 
P5L 
ADD 
RTS 



CHK5U0: BIT 
BEQ 

TYPE 
BR 



CHSU 

RDOCT 

(SP)+,R0 

R0,»3l2 

IS 

RQ 

RO 

RC 

RO 

RO 

•2.CSPi 
PC 

•suo.asuR 

IS 

,b5S 
&4S 



;CLR EROR. COT'TROL RESET 

;SEEK FUNCTION' 

:N0 

:IF SEEK. INSERT THE RIGHT 
; CYLINDER ADORES^ 



;WflIT FOR CNTROL RDY 

;IF IT'S CON RESET FUNCTION 
;DONT UflIT FOR R/W/S RDY 
;R/U/S RDY' 

; ERROR' 
•YES 

•TERHINflTE THIS FUNCTION OR REPEAT' 
: REPEAT 
; TERHINflTE 



;SET UP FOR LUPING 



: REPORT ERROR 
:CLR ERROR 



WRITE A PATTERN GIVEN BY USER' 
NO 

YES. ASK FOR PATTERN 
;TYf'E flSCIZ STRING 
GET OVER THE ASCIZ 



58S7 
S8S8 
58S<3 
SBbO 
5861 
S8b2 
S8(>3 

SBkS 

sabt, 

58b7 

587C 
5871 
^72 
S873 
S87M 
5875 
587b 
5877 
5870 
587^ 
5880 
5861 
5882 
5883 
588H 
5885 
5886 
5887 
5888 
5889 
58« 
S8<)1 
58S2 
58S3 
589H 
58SS 
56% 
58'}7 
5898 
58<W 
5%00 
SBCl 
5902 
5903 
590M 
5905 
5906 
59C7 
5908 
5909 
5910 
5911 
=912 



02Mli2 
02H112 
Q2S114 
Q2M120 
02M126 
02S1» 
02S13M 

02SI36 
02S140 
02S142 
02M150 
02M15fe 

oasibo 

02Mlb6 
02M170 
02Hl7b 
02M204 
024212 
02M2iM 
024222 
024224 
024232 
024234 
024236 
024244 
0242% 
024250 
024254 
024260 
024262 
024264 
024270 
024272 
024276 
024300 
024304 
024312 
024314 
024316 
024324 
024330 
024332 



024334 
024342 
024350 
0243Vi> 
024364 
024372 

C24373 



104412 
012637 
012737 
000207 
062716 
000207 

104416 
104415 
013737 
032737 
001404 
042737 
000403 
D52737 
013777 
012777 
104421 
013777 
104421 
032777 
XlOOl 
005725 
013737 
104416 
000205 
005037 
012700 
105710 
M1413 
105760 
001410 
004537 
000405 
052710 
052760 
005720 
005720 
062737 
022700 
003353 
000207 



047103 
042122 
047104 
052105 
020122 
000 



031446 
031 •♦46 

000006 



X1230 
020000 



020000 
001230 
000011 

002120 

000100 



001230 
001232 



000002 

024136 

000002 
000002 



040000 
001251 



051124 
020131 
052047 
040440 
042523 



001476 



002120 
001230 



020000 001230 



001230 
155260 
155244 

155242 

155220 



C00002 
001230 



020114 
044504 
051440 
052106 
045505 



1ACY11 30a046J 14-JUL-77 08:03 
FUNCTION SELECTION PROCRfifl 



PAGE HQ 



::65l: 
&4S: 



IS: 



.ftSCIZ /PfiTRN^' 



ROOCT 

MOV 

MOV 

RTS 

flOO 

RTS 



(SP)*.I0BUF1 
•I0BU^1.IN0X2 

PC 

•6.(5P) 

PC 



FCHECK: DRV. RESET 
COM. RESET 

DRIVflO,ORHOLO 
•200Q0|DRIVAD 

•20000, DRIVAO 
2f 

120000, ORIVAD 
0RIV()0!aRK0A 

•ii,aRf!:cs 



IS: 
2S: 



002120 UC1230 3S: 



NOV 
BIT 
BEQ 
8IC 
BR 
BIS 

nov 
nov 

CON. ROY 
NOV 

CON. ROY 
BIT 
BNE 
TST 

nov 

ORV. RESET 



0RH0L0,aRKDA 

I100.9RKDS 
3S 

(RS)* 

0RH0LD,0RIVAD 



SIZEF: 
4$: 



2S: 



RTS R5 

CLR DRIVAD 

flOV •ORIVO.RC 

TSTB (RO) 

BEQ 2S 

TSTB 2(R0) 

BEQ 2S 

JSR R5,FCHECK 

BR 2S 

BIS 12, (RO) 

BIS •2.2(R0) 

TST (RO)* 

TST (R0)+ 

ADO 140000, ORIVAD 

CMP •DRIV7*1,R0 

BGT 4S 

RTS PC 



; ERROR MESSAGES 



:SAVE THE PATTERN 

;SKIP NXT 2 INST ON RETURN 



;SAVE DRIVE AORP 
:SEE IF ODD 

jNAKE EVEN 

iflAKE ODD 
; DRIVE a60R 

; DRIVE SEEK 

; OTHER DRIVE 

;HEAEDS IN flOTIONN' 
:N0 SO RK-05J 
;YES RK-05F 
; RESTORE AODR 



:S"'APT AT DRO 

: TABLE OF AVAIL DRIVES 
THIS DRIVE HERE'' 
;N0 

COMPLEMENT HERE' 

;N0 

SEE IF F MODEL 
:J MODEL 
;SET SIGN FOR F 

:BOTH DRIVES 

•.NEXT PAIR OF DRIVES 
;NEXT ACTUL ADDR 
; CHECKED ALL' 
;NOT YET 



EMI: 



.ASCIZ 'CNTRL ROY DIDN'T SET AFTR SEEK. 



122 047111 04744C En2: 



.ASCIZ /SIN ON SEEK/ 



•C-li-CrPKL-E. RKU-RKOS DYNflMiC TEST 
^ZRKLE.Pll 2b-flPR-77 12:27 



5<313 
SqiM 

sqis 

5S17 

ssia 

S919 
5920 
5S21 
S922 
5923 
592M 
592S 
S92t 
5927 
5928 
5929 
5930 
5931 
5932 
5933 
593M 
5935 
5936 
5937 
5938 
5939 
59HQ 
5941 
59M2 
59M3 
59^M 
5945 
594b 
5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
59SS 
59Sfc 
5957 
5958 
5959 
5960 
5%1 
59b2 
59b3 
?%4 
5%5 
5%fc 
5%7 
£9b8 



02MHQP 020116 
024M0b 000 



020116 0H2S23 0N550S 



Q24HC7 
02MM14 
024422 

024423 
0244X 
024436 

024441 
02444b 
024454 
D244b2 
024470 
02M476 
024504 

024510 
02451b 
024524 
0C4532 
0^^540 

024545 
024552 
0245S0 

0245b4 
024572 
024b00 
02%06 
024bl4 
02%I5 
024b22 
0c4b3Q 
02%33 
024640 
0246% 
024654 
024655 
024662 
02%7a 
02%76 

024704 
024712 
024720 
024726 
024734 
024742 
024750 
024756 



104 
020116 
000 

047 
047440 
045505 

104 
020116 
020054 
051104 
023M40 
020047 
047125 

027522 
042122 
020124 
043101 
042523 

123 
020116 
046506 

042447 
047117 
043516 
042524 
000 
123 
020116 
052115 
047 
047440 
042101 
000 
127 
044040 
051106 
042523 

051105 
020116 
042511 
045505 
020115 
023501 
041447 
000 



042522 
0H2S23 



051105 
020116 
000 

052522 
042523 
052520 
02012b 
047514 
020046 
000047 

027527 
020131 
042523 
042524 
045505 

047111 
051127 
000124 

051122 
042040 
053440 
043040 

047111 
042122 
000 
05110G 
020116 
043040 

047522 
051104 
046517 
021503 

051117 
046511 
020104 
043040 
041447 
052040 
0H6131 



047440 
04S505 



023522 
042523 



047440 
045505 
020124 
047117 
042101 
051047 



020123 
047516 
020 12H 
020122 
000 

047440 
020124 



020047 
044517 
044522 
052115 

047440 
043057 

023522 
042522 
052115 

043516 
020123 
Q23440 
000047 

047440 
046120 
042523 
047522 
0%131 
020117 
023502 



H09 

HRCYll 30(10%) 14-JUL-77 08:03 PftCE Ul 
FUNCTION SELECTION PR0GRM1 



En3: .ASCI2 /ORE ON SEEK/ 



En4: .RSCI2 /'ERR- ON SEEK/ 



Ef15: .flSCIZ /DRU ON SEEK. PUT DRV ON 'LOAD' & 'RUN' 



Effe: .flSCIZ -R/U/S RDY NOT SET AFTER SEEK" 



EI17: .ASCII /SIN ON UPT FHT/ 



EfllO: .flSCIZ /'ERR* ON DOING URITE FflT/ 



EMU: .ASCIZ "SIN ON RO/FNT" 
Eni2: .ASCIZ /'ERR' ON READ FNT/ 



EM13: .ASCIZ /URONG HDRS FROM 'SECt' 



EM14: .ASCIZ /EROR ON IMPLIED SEEK FROM 'CYLA' TO 'CYLB' 



024757 122 040505 020104 HSIS: .ASCIZ /READ WRONG HOPS FROM 'CYlB' ABOVE- 



YNflMIC TEST 



fIfiCYll 31 
rUNCTIOM 



5%S 

5970 

5971 

iS72 

;97* 

597M 

597S 

597b 

5977 

5978 

5979 

5990 

5981 

5982 

5983 

598S 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

599M 

5995 

59% 

5997 

5998 

5999 

bOOO 

bOOl 

b002 

b003 

b004 

bOOE 

bOOb 

b007 

b008 

b009 

bOlO 

bOll 

bQl2 

6013 

601H 

6015 

6016 

6017 

6018 

6019 

6080 

6021 

6022 

1^ 



024764 
02M772 
Q2S000 



02S021 
02S026 
02S03S 
02S042 
025050 
02S056 
02S064 
025072 
025100 
025106 
025114 
025122 

025126 
02C13M 
025142 
025150 
025156 
025164 
025172 

02S17M 
025202 
025210 
025216 
025224 
025232 
025240 
025246 
025254 

025262 
025270 
025276 
025304 
025312 

025316 
025324 
025332 
025340 



051127 
042110 
047522 




025362 
025370 



osi: 

030440 
042122 
020115 
026060 
041114 
020116 
042511 
045505 
020115 
023501 

042522 
052123 
043040 
042523 
023440 
020047 
000105 

042522 
047522 
051104 
044440 
042105 
020113 
023440 
020047 
054503 

051105 
020116 
020107 
020105 
051511 

044523 
042040 
053440 
000 

110 
042040 
051040 

051503 
051040 



047117 
051522 
020115 



040505 
047117 
052123 
043040 
042S23 
023440 
020047 
046511 
020104 
043040 
041447 
000051 

042101 
053440 
047522 
020103 
054503 
041101 



042101 
043516 
020123 
050115 
051440 
051106 
054503 
047524 
041114 

051117 
047504 
051127 
047117 
000113 

020116 
044517 
044522 



020105 
044517 
040505 

020105 
040505 



020107 
043040 
041447 
040440 
000 

020104 
026107 
053440 
047522 
020103 
054503 
047450 
046120 
042523 
047522 
046131 



030440 
042122 
020115 
026061 
041114 
053117 



053440 
044040 
047117 
044514 
042505 
0%517 
040514 
023440 
000047 

047440 
047111 
052111 
042040 



047117 
043516 
042524 



r47117 
w43516 
000104 

047117 
000104 



EMI 6: 



nS17: 



En20: 



025376 040504 040524 042440 



En21: 

En22: 

EH23: 

EH24: 
En2E: 



IQ9 

1(1046) 14-JUL-77 08:03 PftGE 112 
SELECTION PfiOGRflM 



fiSCIZ /READ UPONG. 1ST URD FROM SEC 0, 'CYLB' ^ON WPLIED SEEK FROn 'Zflft'W 

ftSCIZ /REPO 1ST mo FROn SEC 1, 'CYLB' ABOVE/ 

flSCIZ /READ WRONG HDRS ON IMPLIED SEEK FROn 'CYLA* TO 'CYlB* ' 

ASCIZ /EROR ON DOING URITE ON DISK/ 

A5CIZ /SIN ON DOING WRITE/ 

ASCIZ /HE ON DOING READ/ 

ASCIZ /CSE ON READ/ 

flSCIZ /DATA EROR ON READ FROM DISK ACRES- 



J09 



77 08:03 PftGE 113 



b033 
b03S 
b03S 
h03b 
b037 
8038 
b03<3 
bOHO 
bOSl 
bOM2 
bOM3 
bOHH 
b045 
bO% 
faOH7 
&0H8 
b04S 
bOSO 



02SM0M 0S7522 020122 
02S412 OSIOMO OSOSOS 
02SM20 05UQ6 046517 



QM74H0 
020124 



mi 

02S4S4 000113 

02SM5b 0S1127 
02S464 020113 



047117 
020104 
042040 
042101 



En2&: 



b0S3 
b054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 



025472 
025473 



025500 
025506 
025514 
025522 
Q255X 
025536 
025544 

0255% 
025554 
025562 
025570 

025576 
025604 
025612 
025620 
025626 
025634 
025642 
025650 

025653 
025660 
025666 
025674 
025702 
025710 
025716 

\f 

>7; 



000 



020124 
051105 



044103 Ef127: 
051117 



.flSCIZ /HE ON UHT CHK/ 



.flSCIZ /URT CHK EROR/ 



105 0M7522 000122 Ef130: .flSCIZ /EROR/ 

:OATfl HEADERS 



020040 
020040 
020123 
042513 
051040 
020040 
000101 

042523 
020040 
047111 
051122 

020040 
020040 
020123 
042513 
051040 
020040 
020101 
046131 

040 
020040 
020123 
042513 
051040 
020040 
020072 




0257% 
02E75C 
025756 
025764 



0040 
000103 
042523 
042110 
GH2126 



041520 
051040 
020040 
020122 
042113 
051040 



045505 
042523 
020107 
051117 

041520 
051040 
020040 
020122 
042113 
051040 
020040 
000 

050040 
051040 
C20040 
020122 
042113 
045522 
051104 

14 

to 

021503 
020122 
000 




020040 DHl: 

041513 

051040 

020040 

020123 

042113 



021440 DH6: 
045505 
042440 
000123 

020040 DH7: 

041513 

051040 

020040 

020123 

042113 

041440 



020103 DHU: 

041513 

051040 

020040 

020123 

040504 

020040 

020040 

020122 

042523 

020040 0H13: 
041522 



.flSCIZ / PC 



RKCS RKER RKDS . RKOfl/ 



.flSCIZ /SEEK • SEEKING ERRORS/ 



.flSCIZ / PC 



RKCS RKER 



RK05 



RKOfl 



CYL/ 



.flSCIZI/ PC RKCS RKER RKDS RKOfl: OR CYL 



SUR 



SEC 



.flSCIZ /SECl HDP RCVD/ 



IC TEST 



02S?b7 
>77M 




&085 
bOBb 
b087 
b088 
E>08<3 
faOSO 
bOSi 
bO% 
bOS3 
b09H 
b095 
&0% 
b097 
b098 

boss 

blX 
blOi 

bios 

bl03 
bl04 

bios 

blOE> 
bl07 

bloe 
bios 
biio 
bill 

bll2 
bll3 
bllM 

bus 

bUb 
bll7 

biia 
bus 

blSO 
bl2l 
bl22 
bl23 
bl2M 
bl2S 
bl2b 
bl27 

bi2e 

bl2S 
bl30 
bl3l 
bl3| 

bl3S 
tl3fc 





^ 1 







02b032 
02b040 



051504 
052040 



54 
02b0b2 
026070 
02b07b 
D2bl04 
02bll2 
02bl20 

02bl23 
02blX 
32bl3b 
026144 
026152 
026160 

02blbl 
02blb6 
026174 
026202 
026210 
02621b 
026224 
026232 
026240 
0262% 
026254 
026262 

026266 
026274 
026302 
110 
>3lb 

026332 



020101 
041114 
054105 
020040 
020104 
021531 

040 
020040 
041114 
05Q1X 
051040 

000 

040 
020040 
021531 
041513 
051040 
020040 
020123 
035101 
041440 
020040 
020040 
042523 

047527 
042440 
020040 
042126 
046131 
020122 
000 



020040 
054522 

020040 
020040 
041520 
042522 
020040 
000 

050040 
020040 
020040 
052103 
041505 



050040 
020040 
020040 
020123 
042S13 
051040 
051040 
042040 
04bl31 
051440 
020040 
000103 

042122 
05013C 
051040 
020040 
020040 
051440 



020103 
jgomo 

Ucu040 
042513 
045522 
020040 
000043 

020040 
04bl31 
054503 
020040 
020124 
053103 
051124 



020103 
054503 
042440 
020040 
04212b 



020103 
051124 
051040 
020040 
020122 
042113 
042113 
02C122 
020040 
051125 
020040 



020043 
052103 
041505 
041440 
052523 
041505 



DH14: .flSCIZ / PC CYLfl CYLB RKER RKDS TRY|/ 



DHlb: .flSCIZ ' PC CYLfl CYLB EXPCT RECVD TRYi/ 



DH17: .flSCIZ / PC CYLB EXPCT RECVD/ 



DH24: .flSCIZ/ PC TRYI RKCS RKER RKDS RKDfl: OR CYL 



SUR 



SEC/ 



Dh25: .flSCIZ /WORD! EXPCT RECVD CYL SUR SEC/ 



026334 

88ilbb 8oii^§ 

02b35C 00111b 001162 001164 



: ERROR DflTfl POINTERS 



.EVEN 



001164 
000000 



OTl: .UORD JERRPC.fREGO. JREGi,$REG2,SREG3,0 

DT7: .UORD lERRPC, JREGO, JREGl,5REG2,SREG3.iREG4,C 



D-U-OZRK.-c. RKll-RKOS DYNftHlC TEST 
:rPK^E.PK 2fa-ftPR-77 12:27 

001170 001172 



bi37 


02b35b 


COllbb 


£>i38 


026 3b4 


000000 


bi3S 






bl40 


Q2bJ6b 


OOUlb 


blMl 


02b37M 


OOUbb 


biM2 


02b402 


00117b 


blH3 






blHM 


02f>410 


00111b 


bl45 


02641b 


OOUbb 


bl% 






b:H7 


02bM22 


Cdlilb 


bI48 


02b4X 


001 lb4 


bl4«3 
biSO 


02b43b 


Ml 174 


02b44H 


OOOOOC 


bl51 






bl52 






bl53 






bl54 


02b44b 




bl55 


02b44b 


000030 


blSb 


02b52b 


000030 


bl57 


02bb0& 


000030 


blB8 




000030 


blSS 


02b7% 


000030 


blbO 


02702b 


000200 


blbl 


02742b 


000200 


blb2 


03002b 


000200 


blb3 


03042b 


000200 


blbH 


03102b 


000210 


blbS 






bibb 


031 44b 


001400 


bib7 






bibe 






blb9 






bI70 




00000 i 



0011b2 
001172 
001200 

0011b2 
000000 

001202 
OOUbb 
00117b 



nftCYU 30(10Mb3 14-JUL-77 08:03 
rUHCTION SELECTION PROGRflfl 



PfluE US 



. UORO SERRPC , SREGO . SREGl . tREG2 , SREG4 . SREG5 . SREGb , SREG7 . C 



00Ub4 DTU: 
00n74 
000000 

0Cllb4 DT17: .UQRO SERRPC, SREGO, SREG1,SREG2.0 



00Ub2 0T24: 

001172 

001200 



, UORO SERRPC , SREGIO , SREGO, SREGl , SREG2 . SREG4 , SREG5 , SREGb . SREa7 , ! 



;DfiTfl BUFFERS 




I08UF0: 






OUTBUF: 


.BLKU 


24. 


BUFR4: 


.BLKU 


24. 


BUFR5: 


.BLKU 


24. 


BUFRb: 


.BLKU 


24. 


8UFR7: 


.BLKU 


24. 


BUFRIO: 


.BLKU 


128. 


BUFRU: 


.BLKU 


128. 


BUFR12: 


.BLKU 


128. 


BUFR13: 


.BLKU 


I2B. 


BUFRIM: 


.BLKU 


13b. 


lOBUFl: 


.BLKU 


7b8. 



;IOBUFO ftND lOBUFl ARE 

:TUO - 7b8 UORDS LOMG BUFFERS 

NORHftLLY USED FOR DftTfl TRANSFERS 

TO AND FROM DISK 



,END 



•Ci-1 1-DZRvi -F. Ri<i. RK05 


rvTiflfiic 


TES' MACYll 




-JjL-77 


OZRKLE. 


PI- 2b APR-77 


it;: 27 


SYflSOL 


TABlE 




8661 


Qib7Z2 


HJFP14 




DRVPTR 


UOlddb 


BflCTMO 


0CI2M22 


BUFR2 


001352 


DRV.R£= 


10441b 


BEGIN 


01CIS32 


BUFR4 


026526 


DR.RST 


016470 


eecsK 


0I32S0 


BUFRS 


026606 


D5KA0R 


001432 


BITO = 


000001 


BUFRb 


026666 


DSMR = 


177570 


BITOO ~ 


000001 


BUFR7 


026746 


DTI 


026334 


BITOl = 


000002 


BUSAOR 


001434 


DTU 


026366 


BIT02 r 


000004 


CHKHDR 


M72b0 


DT17 


026410 


BIT03 = 


000010 


CHK5U0 


024064 


DT24 


026422 


BITOH = 


000020 


CHSU 


023770 


DT7 


026350 


BIT05 = 


000040 


CKSrf? = 


104407 


EMTVECs 


pk.njij-i -i.j~L 

000030 


BITOb = 


000100 


CLRERR 


012162 


Ettl 


024334 


BIT07 = 


000200 


CMPPGfi 


011244 


EfllO 


024564 


BITOe = 


000400 


CHPGRP 


014622 


EMU 


024615 


BITOg = 


ooloro 


CN.RDY 


016620 


Eni2 


024b33 


BIT! = 


000002 


CN.RST 


016602 


Ef113 


024655 


BITIO = 


002000 


COffW 


011220 


Eni4 


024704 


BITll = 


004000 


CON.RD= 


104421 


Em6 


025021 


BIT12 = 


010000 


CON.RE= 


104415 


Ef12 


024373 


BIT13 = 


020000 


CR = 


000015 


EM20 


025174 


BITIM = 


040000 


CRLF = 


000200 


EI121 


0252b2 


8IT15 = 


100000 


CSEROR 


011654 


EM22 


02531b 


BIT2 = 


000004 


DOISP = 


177570 


EM23 


025341 


BIT3 = 


000010 


DHl 


025500 


€M24 


025362 


BITM s 


000020 


DHll 


025653 


En25 


025376 


BIT5 = 


000040 


0H13 


025750 


EM2b 


025440 


BiTb = 


000100 


DH14 


025767 


Ef127 


025456 


BIT7 = 


000200 


DHlb 


026046 


EM3 


024407 


BITS = 


0004X 


DH17 


026123 


EI130 


025473 


Biiq = 


001000 


DH24 


026161 


EM4 


024423 


eLM(51 


002111 


DH25 


026266 


Ens 


024441 


B1NKS2 


002110 


DH6 


025546 


Ef16 


024510 


BLr«(S3 


002107 


DH7 


025576 


Ef17 


024545 


BLNKSM 


002106 


DISPLfi 


001142 


ERCNTl 


001504 


BLNKSS 


002105 


DISPRE 


000174 


ERCNT2 


001506 


BLNKS6 


002104 


DHPREG 


017662 


ERCNT3 


001510 


8LMKS7 


002103 


DOHE 


011636 


ERCNT4 


001512 


BLNKS8 


002102 


DONTRK 


01157b 


ERCNT5 


001514 


BLNKSS 


002101 


DOSURl 


011b30 


ERCNT6 


001516 


BLNKIO 


002100 


DOUCHK 


012420 


ERCNT7 


001520 


BLNK13 


002075 


DOHRT 


012224 


ERCNTB 


001522 


OPTVECs 


000014 


DRHOLD 


002120 


ERRTYP 


017446 


BRKOA 


01&220 


DRIVAD 


001230 


ERRVEC= 


000004 


BTEOP 


015232 


DRIVS 


001224 


ERRl 


016376 


BUFLGO 


001410 


DRIVO 


001232 


ERR2 


016320 


BUFLGl 


X1412 


DRIVl 


001234 


ERUCHK 


011404 


BUFNO 


0014% 


DRIV2 


001236 


ESR13 


015456 


BLFR 


001266 


DRIV? 


001240 


ESR15 


015364 


BUFRl 


X1320 


DRIV4 


001242 


ESR20 


015532 


BUFRIO 


027026 


DRIVS 


4 ^1 III 

001244 


ESR25 


015b2u 


BUFRll 


027426 


DRIVb 


001246 


EXEC 


023676 


BUFRl 2 


030026 


DPIV7 


001250 


EXECl 


023674 



PAGE A7 



ExtA 




NxTaa 


KX22 


EXT5 
EXTb 


007352 
C10432 


NXTDA 
NXTDRV 


023546 
003760 


EXT7 


012170 


NXTPflT 


001426 


FCHECK 


024136 


NXTWC 


023642 


FDRIVE 


W2114 


OUTflOR 


001262 


FDRVEl 


00211b 


OUTBUF 


026446 


FFUNC 


X121b 


PflTO 


001414 


FINISH 


011512 


PATl 


00141b 


FUfCEC 


023172 


cflT2 


001420 


FUf€RR 


024004 


PfiT3 


001422 


GCYL 


016434 


P8UF0 


00140" 


GETBUF 


010044 


PBUFl 


00140b 


GETINF 


016214 


PGSUBR 


001430 


GOBAK 


011650 


PIRO = 


177772 


GOTYPE 


013600 


PIRCVEs 


000240 


GTSUR = 


104406 


PLOT 


014222 


GT4RG 


016162 


PLTGRP 


01410b 


GT5RG 


016136 


PLTPT 


01473b 


HT = 


000011 


PLTl 


01443b 


INADR 


001260 


PRSPflT 


001424 


INDXl 


001474 


PRO = 


000000 


INDX2 


001476 


PRl = 


000040 


INDX3 


001500 


PR2 = 


000100 


INDX4 


001502 


PR3 = 


000140 


INPT 


024032 


PR4 r 


000200 


lOBUFO 


026446 


PR5 = 


000240 


lOBUFl 


031446 


PR6 = 


000300 


IOTVEC= 


000020 


PR7 = 


000340 


IF = 


000012 


PS = 


177776 


LUPHE 


010640 


PSW = 


177776 


LUPSIN 


010632 


PTGENO 


010106 


LUPSU 


XI 222 


PTGENl 


010170 


LUPUCE 


011350 


PTGEN2 


010272 


f1ESfiGE= 


104417 


PTGEN3 


010334 


MISCMP 


012016 


PTRNOl 


010164 


HSGE 


016044 


PTRN02 


010166 


MSGl 


001602 


PTl 


001560 


MSGIC 


00174? 


PTIO 


001576 


HSGU 


001771 


PTll 


001600 


I1SG12 


002027 


PT2 


001562 


n5G13 


002053 


PT3 


001564 


flSG14 


002064 


PT4 


001566 


f1SG2 


001610 


PTS 


001570 


MSGS 


001616 


PTb 


001572 


riSG4 


001640 


PT7 


001574 


MSGS 


001657 


PURFL 


004244 


MSG6 


001716 


PURVECs 


000024 


MSG7 


001733 


RDAGAI 


010642 


nsis 


024757 


RDCHR = 


104410 


MS17 


02512b 


RDLIN = 


104411 


NOME 


010760 


RDOCT = 


104412 



fC-ll-02RKL-E, RKll-RKOS DYNfiniC TEST flACYll 30(10%) 14-JUL-77 08:03 
OZRKLE.Pli 2b-9Pfi-77 12:27 SYHBOL TABLE 



IS^flT 


Ol2bSS 


STKLflTr 

5tr 


0O3512 


TYPDES 


032306 


^PTtSC 


013200 


SUR 


Q03742 


TYPDS = 


104405 


f€PTIH 


001140 


TYPDSS= 


134424 


RES00f*= 


104423 


s;«EG 


000176 


TYPE = 


104401 


RESREG= 


104414 


suo = 


000001 


TYPNSG= 


104420 


RESVEC= 


000010 


suoo = 


000001 


TYPOC = 


1P4402 


RES. 00 


016514 


SUOl - 


000002 


TYPON s 


104404 


RETRYl 


0012S2 


SU02 = 


000004 


TYPOS = 


104403 


RETRY2 


001254 


SU03 = 


000010 


TYPTIN 


013736 


RETRY3 


0012S6 


SH04 = 


000020 


TY.MSG 


016106 


RKBP 


001462 


5U05 = 


OOOOHO 


UBUSAO 


001442 


RKCS 


00145E> 


5U06 = 


000100 


UCAGAI 


011132 


RKDA 


001%4 


SW07 = 


000200 


UCEROR 


012062 


RKOe 


0014&& 


SU08 = 


ooosoo 


UCERR 


012442 


RKDS 


0014S2 


sum - 


001000 


UCHI 


012446 


RKER 


001454 


SUl = 


000002 


UCHIl 


012440 


RKPRI 


001470 


SUlO = 


002000 


UCLO 


012646 


RKVEC 


001472 


sun = 


004000 


UCREPT 


011334 


RKUC 


0014&0 


SU12 - 


010000 


UDSKAO 


001440 


R6 =: 


^mX)06 


SW13 = 


020000 


l«DCNT 


001436 


R7 =y.000007 


SW14 = 


OHOOOO 


URERR 


012240 


SflVREG= 


104413 


SU15 = 


100000 


URHI 


012400 


SBRl 


00652& 


SI42 = 


000004 


URLO 


012242 


S6R2 


006552 


SU3 


000010 


;aloi 


012236 


58R3 


007224 


SUM = 


000020 


URTCHK 


C11116 


SECPTR 


010426 


SU5 = 


000040 




001444 


SFTCMP 


011166 


5U6 - 


000100 


XHE 


011442 


SIflO 


001542 


SW7 = 


000200 


XXDPMD 


^^^^ C ^^^^0^ 

001220 


SI2EF 


024250 


sue = 


000400 


SAUTOB 


001134 


SKOon 


015152 


sug = 


001000 


SSDAOR 


001122 


SMGRP 


014472 


TBITVEs 


000014 


SBDDAT 


001126 


SOAO 


001524 


TIffKW 


014050 


SBELL 


001206 


SORT 


013342 


tiher 


001264 


SCHARC 


020474 


SPl 


012702 


TIMSEK 


014776 


SCKSUR 


021064 


SPIO 


012724 


TKVEC = 


000060 


SCI1TAG 


001100 


SPU 


012726 


TPVEC = 


000064 


SCNl = 


000011 


SP12 


012730 


trapve= 


000034 


scri2 = 


000022 


SP2 


012704 


TRTVEC= 


000014 


SCH3 = 


000011 


5P3 


012706 


TSTRUS 


016716 


SCNTLG 


021727 


5P4 


012710 


TST.RUs 


104422 


SCNTLU 


021722 


SP5 


012712 


TSTl 


004260 


5CRLF 


001213 


5P6 


012714 


TSTIO 


012174 


SOGLK 


020250 


SP7 


012716 


TSTU 


012736 


SDB20 


022506 


SP8 


012720 


TST12 


015224 


iDtCvL 


Uccbbb 


5PS 


012722 


TST2 


004624 


SOOAGN 


015340 


STACK = 


001100 


TST3 


005122 


SOTBL 


020240 


START 


0024S2 


TST4 


005612 


SENOAO 


015330 


STARTA 


002530 


TST5 


006620 


JENDCT 


015276 


START 1 


003J74 


TST6 


007356 


SENOMG 


015347 



. ABS. 034446 000 



ERRORS DETECTED: 0 



PAGE lie 



It OP 


□15344 
01524b 


IREG4 


001170 
1501172 


SEOPCT 


015270 


SREG5 


001174 


SERFLG 


001103 


SREG6 


00117b 


SERMAX 


001115 


SREG7 


001200 


lERROR 


017162 


IRESRE 


02245C 


SERRPC 


X1116 


SRTNAO 


015342 


SERRTB 


002122 


tSAVRE 


022412 


lERTTL 


001112 


SSAVR6 


023160 


SESCAP 


001204 


SSCOPE 


01700b 


SFILLC 


001156 


ISETUP= 


000117 


SFILLS 


001155 


ISTUP = 


177777 


SGOAOR 


001120 


JSUPRS 


022352 


SGOOAT 


001124 


SSVLAD 


017120 


SGET42 


015320 


ISVPC = 


000220 


SGT5UR 


021 154 


SSUR = 


163000 


SHO = 


000000 


SSURHK: 


OQOOQO 


JHIOCT 


022056 


STKB 


0011% 


IICNT 


001104 


ITKCNT 


020612 


IILLUP 


023154 


JTKIMT 


020622 


SINTAG 


001135 


STKiaEN= 


020621 


siTEre 


001114 


STKQIN 


020614 


ILF 


001214 


STKQOU 


020616 


SLPAOR 


001106 


STKOSR 


020620 


SLPERR 


001110 


ITKS 


001144 


sra€u 


021745 


STKSRV 


020672 


snsuR 


021734 


STN = 


000013 


snuL = 


000003 


ITffW 


022616 


inULT 


020500 


STPB 


001152 


SNULL 


001154 


STPFLG 


001157 


SNUTSTs 


000031 


ITPS 


001150 


$0CNT 


022302 


STRAP 


022702 


sonooE 
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022724 
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ITTYIN 


021712 
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STYPE 
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SPHRUP 
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001212 
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SROLIN 
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001162 
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